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PoStree! 


This project serves as a prototype of an automated 
nucsing care system. The project contains three main 


components: nursing diagnosis, nursing care plans, and 


patient classification. The objective of this project is 
to marry the above three nursing elements into a single 
integrated system. 

The program requires validation For access and patient 
admission capability. Doctor’s orders and nurse’s orders 
comprise major inputs for determining the elements of 
potient care. Patient care Functions carry weighted 
qualifiers which input to calculate the patient 
erassificatian. 

The project uses dBase III to manage the database 


Functions and Exsys to calculate patient classification. 
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I. INTRODUCTION 


The appropriate time to assess the nurse’s automation 
needs is when a hospital-wide system is being proposed. 
The Navy Nurse Corps is currently in this unique position. 
A Mission Element Needs Statement proposed the creation of 
the Composite Health Care System in 19793. A formal Request 
For Proposal allowed vendors to bid for the implementation 
of the system in 1938S. The Composite Health Care System 
calls for a phased implementation process with phase one 
scheduled to begin in 1986. Inpatient activities, 
including the areas addressed in this project, occur in 
phase two. The Navy Nurse Corps faces a system 
implementation imminently. Timing dictates that the Nurse 
Corps seek prototypes of automated systems that best serve 
its needs. 

This project serves as a prototype of an automated 
nursing care system. The project contains three main 
components: nursing diagnosis, nursing care plans, and 
patient classification. The objective of this project is 
to marry the above three nursing elements into a single 
integrated system. Meeting the objective necessitates the 
inclusion of the doctor’s orders. The doctor’s orders, in 
combination with the nurses’s orders, reflect the 


independent, dependent and interdependent activities of 
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nursing. The combined orders serve as the foundation for 
the nursing core plan and the patient classification 
system. Departmental interfaces demand inclusion in the 
design of any nursing care software package. 

To provide a realistic setting, the program requires 
validation for access and patient admission capability. 
The validation for entry iS a necessity to safeguard 
patient information from unauthorized access and invasion 
Of privacy. Patient admission capability allows for 
identifying and testing different patisnt scenarios. 

This prototype project gives a partial operational 
solution to the planning model proposed by Rieder and 
Norton in "An Integrated Nursing Information System - A 
Planning Model.” Reider and Norton state, 

the processing step of classifying patients could be 

Fully automated. The computer could process patient 
information and determine each patient’s acuity category 
From the Critical Indicator parameters stored within 

Ene sustem. AS orders and plans of care change, the 
computer also will update each patient’s acuity category 
end disploy the results on demand. (1:78) 

This program plans to show one way of automating the 


patient classification system using nursing diagnosis and 


patient care plans. 


Il. PROJECT INI TIALLON ACTIVE ES. AND. Baek EGE 


This software project Follows the outline presented by 
Pressman C2] and Found in the GSA Office of Software 
Development publication "Establishing A Software 
Engineering Technology CSETJ.” In this publicotieneeere 
Federal Software Testing Center describes SET as: 

software engineering iS sometimes referred to as the 
discipline that brings order to the software development 
process. (3:3) 
This softwore development effort concentrates on the first 
threes of six softwors 1ifs cycle stages outlined by SET. 
These steps are requirement definition and analysis, 
design, and programming. The final three stages of 


validation, operation and review remain for a folveu—on 


DECveee. 


A: -SEORE 

This software product limits its applicatican toscne zg. 
hospital medical-surgical environment. The emphasis is on 
Gutomating the nursing care plan activities driven by 
nucsing diagnosis. The patient classification system uses 
an expert system for automation. Automating the nursing 
care plan octivity helds potential Fen simera- ane 
documentation, resulting in better patient care. 
Automating the patient classification system provides for 


consistency and accuracy in assigning points)! ona ¢ 
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patient care porameters. fhis provides for easy, rapid 
Classification of patients giving the decision makers 
necessary and timely information to make effective staffing 


assignments. 


B. COMNPUTER/COMPUTING CONSTRAINTS 
1. Hordwore 
The computer hardware chosen for this project is 
the IBMN-PC or IBM-compatible machine. Nurse Corps Officers 
testing the prototype model operate available Zenith-150 
microcomputers located within the nursing service 
departments. These microcomputers are configured with two 
Floppy disk drives. The capacity of Floppy disks to hold 
data delineates the maximum size of the project. 
e. software 
This project uses off-the-shelf software. However, 
no current product on the market provides for both the 
Qqutomation of a nursing care plan and for patient 
Classification. A versatile, multipurpose programming 
software package adaptable to the project design provides 
the means to integrate the nursing activities. 
i: Use 
Navy Nurse Corps functions are currently not highly 
Qutomated. It is a goal of the software product 
development to make the system user-friendly and 
understandable even to the novice nurse. The system 


designed is for use as a tool for the professional nurse. 
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Stringent programming measures reduce the understanding ( 


required of the inner workings of a computer. 


C. DEFINIDTGNS 
1. The Nursing Care Plan 

The nurse iS a manager of time, energy and 
resources. Conscientious planning occurs throughout the 
many levels of a nurse’s job. The nursing care plan is at 
the heart of what a nurse should get accomplished for a 
Patisnt. Ths nursing cars plan allows the nurse to 
approach each patient with a documented plan of action. 
The care plan needs to contain sufficient information on 
the patient to make it pertinent without making it lengthy 
and unwieldy. ( 

Currently, the writing of nursing care plans is 
not a popular activity. C4-6]3 Nurses agree that patient 
care planning is necessary. They disagree on how best to 
implement the documentation of nursing care plans. 
Education and practice direct nurses to prioritize energies 
on administering patient care. This is an admirable goal 
to strive toward, but one often infringed upon By 
non-patient care requirements. Animosity exists between 
the need to provide the necessary nursing care and the time 
spent documenting the care. Manual documentation currently 
eats up 40 per cent of a nurse’s time. (7:26) 

Various approaches to encourage, enable and 
persuade nurses to complete nursing care plans have been ( 


© 


tried. The Joint Commission on Accreditation of Hospitals 
CJCAH) requires a documented plan of care for every 
Dotient. (€8:S8) Texts have»been published to inform 
nurses about suggested care planning methods. (9-10) 


Many hospitals establish nursing committees to provide 


Standardized core plans. Standardized care plans attempt 
to save nurses the time and energy necessary to develop 
Original care plans. They still allow individualization of 
plans. These attempts to simplify care plan writing 
activities have not Succeeded. What often results isa 
nursing care plan written precursory to assessing the trus 
needs of the patient. The plan rapidly outdates itself. 
Plans frequently need updating. The care plans lack 
consistency from one practitioner to another. Patient care 
plans written to meet JCAH requirements, fall short of 
matching the spirit behind them. 

A possible solution to the above care planning 
dilemma is beginning to appear in nursing literature. In 
many instances that solution is a successfully implemented 
gqutomoted nursing system. (Cll-iejJ Where a successful 
oqutomated system exists, more nurses actively develop care 
plans for their patients. Nurses perceive the automated 
plans as helpful and pertinent to the core delivered. The 
speed and ease of entering care plans pays dividends of 
better nursing care documentation. Their timely output 
encourages active use of the plans. 


ia 


e. The Nursing Diagnosis 


One accepted method for Formulating a nursing care 
plan commences with a nursing diagnosis. A nursing 
diagnosis, as stated by Carpenito, is: 

aq statement that describes a health state or an actual 
Or potential alteration in one’s 1ife processes Cphysio- 
logical, psychological, sociocultural, developmental, and 
spiritual). The nurse uses the nursing process to identify 
and synthesize clinical data and to order nursing 
interventions to reduce, eliminate, or prevent Chealth 
promotion) health alterations which are in the legal and 
educational demain of nursing. lia. 24 

Automation was one of the catalysts behind the 
First National Conference on Classification of Nursing 
Diagnoses. Since the first conference, Se of the most 
pertinent nursing diagnoses Cthrough the Sixth National 
Conference of the North America Nursing Diagnosis 
Association), have been identified. Nursing diagnoses, 
Qlong with delineating the etiology and interventions 
Qppropriate to each, has produced a national effort aimed 
at unifying activities in nursing. (C1%:x1J The nursing 
diagnosis approach has received broad support from the 
nursing community. The nursing diagnosis drives this 
computer project. 

Numerous texts provide sample or generic statements 
initiated by nursing diagnosis. Many hospitals interested 
in implementing automated nursing care planning use 


standard texted plans. This program extracts examples from 


Doenges (153 and Crosley (16). 
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A nursing didaqgnosis is multileveled. A nursing 
diagnosis can be any one of the Se approved nursing 
diagnoses. Each diagnosis has an assessment level. 
Assessment levels are defining choracteristics observed Dy 
the nurse or subjectively stated by the patient. fhe 
nurse’s observation or the patient’s statement is 
relational to some etiology or underlying cause. The 
underlying cause statement helps the nurse evaluate 
realistic goals for the patient to achieve. Goal setting 
is the fourth level of nursing diagnosis. The final level 
is selecting nursing actions or nurse’s orders directed 
toward achieving the stated goal. 

3S. Petites a fe ign 
Patient classification is: 


the grouping of patients according to an assessment of 
their nursing care requirements over a specified period of 
time. C17:8) 


A vdlid patient classification tool enables proper staffing 
evaluation. This program will adopt the Navy Nurse Corps’ 
Workload Management System for Nursing. This method of 
Classifying patients exists in all inpatient Navy 
Facilities. The Nurse Corps has established solid 
Criteria-based critical indicators which this program will 
exploit for deriving a classification level. The 
Classification level equates an amount of nursing time 


required to give patient care. 
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The Navy Nurse Corps is ahead of its civilian 
counterparts in its use of a sophisticated tool to measure 
patient classification level. tne use of the Wauaiead 
Management System worldwide has given the Nurse Corps 
excellent data to improve its system. The continual 
Gdrawbock that many manual tools hove, including this one, 
is subjectivity and inconsistency across users. With 
inservice training and auditing, the Nurse Corps attempts 
to keep the reliability of its model high. Automating such 
an activity would enhance consistency and accuracy. 

4. Expert Sustem 

This progrom will introduce an expert system 
limited to the patient classification documentation. Ryan 
defines an expert system as a system capable of operating ( 
with a large kKnoOwledgs database, processing information on 
expert level. She continues with 


benefits of expert systems are that they can capture, 
replicate, and distribute expertise. (18:77) 


As a large standardized nursing knowledge database 
accumulotes, the application of expert systems will increase 
INV INpoOs canece:. 

For this project, patient classification adapts 
well to an expert system approach. The critical indicators 
and their associated value can easily Fit the if-then 
Format of most expert systems. The expert system will 
extract From a patient’s orders the applicoble critical 


indicator values and calculate a classification level. (| 
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Into REGOPRENENTS DEFINITION AND ANALYSIS STAGE 


The First stage of software PaUSTaanent is the 
requirements definition and analysis stage. This stage 
defines the purpose of the system and examines the 
different components that ultimately make the whole. The 
prototype system provides the nurse with a tool to assist 
in the documentation of the nursing care plan and 


Calculation of a patient classification level. 


A. PATIENT ADMISSIONS 

Nurses cannot exercise their skills without patients. 
The ability to bring potients into the system Cadmission), 
ond have them exit the system Cdischarge) provides a 
realistic situation. The varying population number 


necessitates an expandable capacity for holding patient 


Pneormaticon. 


B. NURSING CARE PLAN AND PATIENT ORDERS 

A patient occupies a specific bed ina numbered room 
located on one of se@€veral nursing words. After the patient 
orrives on the ward, doctors write orders. The nurse 
interviews the patient and develops a nursing core plan. 
The care plan consists of one or more nursing diagnoses. 
Each nursing diagnosis has one or more assessments, related 


Factors, patient goals and nursing orders. The initial 


doctor’s and nurse’s orders comprise the patient care 
requirements. The patient care requirements determine the 
noLLent Cclassif 1teeatiome seve, 

The orders determine the patient care requirements. 
Both doctor’s and nurse’s orders dictate nursing care 
activities. The calculation of a patient classif icartianr 
hinges on the analysis of the patient orders for relevant 
Erltical 2nelececors. 

A potient order consists of the date, the time, the 
order, the frequency of the order, and the practitioner 
imitiating thea order. Onatea and time dapandancy is critical 
For potient orders. An order’s date and time determines 
whether the order is current or due for deletion. The 
order date is also important for patient classtiaecatian 
determination. Patient orders prescribed for a specific 
number or repetitions Ci.e. x 3 or x le) are nonrecurring 
orders. Nonrecurring orders input to patient 
Classification calculation only on the date they were 
issued. 

The purpose of the criticol indicators is to easily 
translate patient orders to a patient classification level 
in a manuol system. Only those orders that closely parallel 
the critical indicators in the Nurse Corps’ Workload 


Management System for Nursing need consideration. 
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A need exists for the user to identify a patient then 
move on to select patient orders. The indexing of orders 
Pav Owef oe leogteg | DEOGression aids the process. 

Individual orders will need to be linked to a relevant 
Sarcrcal simnaicator. Many critical indicators are time or 
Frequency dependent. The program should tie these factors 
together. Patients Frequently require several doctor’s 
orders from the same section. The program would need to 
accommodate for some type of looping to handle multiple 
order entry for a single subcategory. 

rhe peaeimciOnareissa Ooetme or G nurse qualified toa 
enter patient orders. The program should have an internal 
check to assure that a practitioner has limited ordering 
occess pertinent to their qualifications. 

The patient’s condition is dynamic. The program will 
need to provide an easy method to modify changes. Nursing 
core plans vary in length and content. Some patients have 
multiple nursing diagnoses, while others have only one. 
The program would have to accommodate for these voriations. 

Some method would need to be available for 
communicating modifications to staff members. This 
communication process is best if the output is ina printed 
BOEmat. fGintea DUtCpUE Gllows For the information 
transmittal to staff members even when away from the 


eomputer location. 


Lif 


A number of nursing diagnoses in the system is 
desirable. Patient needs cannot be anticipated. A variety 
of diagnoses allows for specific selection. Because a 
nursing diagnosis requires documentation of assessments, 
related factors, goals and nurses’ orders, these functions 


require inclusion. 


C. TRACKING USERS AND PROGRAM SAFEGUARDS 

Some input information should distinguish for the 
system that the current user is either a doctor or a nurse. 
A doctor will want to choose a ward for patient admission, 
identify the patient and select orders. A nurse will want 
to select a ward and patient but then either select a 
nursing diagnosis or calculate a paotient classification. 
The doctor/nurse functions, although related by patient 
selection are different in nature. When users enter the 
system the program should identify whether they are doctors 
Or nurses, and direct their attention to the appropriate 
branch of the program. 

The program selectively allows access to program 
information to eliminate unauthorized access. The program 
contains hypothetical patient information. Nevertheless, 
addressing the privacy of sensitive patient information is 
relevant even ina prototype setting. Safeguards built 
into the system reduce the chance of successful 


unaouthorized entry. 
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Deo lNGeAND EXPERT SYSTEM FOR DETERMINING PATIENT 
EEASSIFICATION LEVEL 


A self-imposed requirement of the system is to use an 
expert system to determine the patient classification 
level. This expert system should interpret the patient 
order as to which critical indicator applies and the 
Frequency of its performance. The expert system then 
translates that information into patient care points which 
then calculates a patient classification level. 

The use of an expert system would allow a user the 
option of reviewing rules used in calculating the patient 
classification. The patient classification tool is 
continually evolving. By monitoring rules and their 
underlying critical indicators, the user gets a visual 


Output of the points and how they were derived. 


uy 


IU, DESIGN Saag 


The design stage attempts to answer how the system will 
accomplish the requirements outlined in thea requirements 


definition and analysis stage. 


A. PATIENT ADMISSION CRITERIA 

The need analysis pointed out the requirement for 
handling varying numbers of patients with set criteria an 
Bach patient. Two options to meet this requirement are an 
qutomated File system or a database system. Generalized 
patient data that would need to be included are: patiene 
First, middle and last names; their rate or rank; their 
Family member prefix concatenated with their social 
security number giving a unique identifier; birthdate; age; 
sex; admission date; hospital registration number; medical 
diagnosis; physician; prognosis; allergies; as well as 
their nursing ward, room and bed assignments. CSee 
Appendix A, Data Dictiagnary; Appendix 8B, Structuce hace 


and Appendix C, User’s Manual for additional information.) 


B. NURSING CARE PLAN 

A representative four of the Se approved nursing 
diagnoses were selected due to the Floppy disk capacity 
constraint. fo some degree, every patient experiences Sete 


care deficit when admitted to the hospital. Other diagnoses 
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Qre more applicable to some specific area in nursing. The 
three other nursing diagnoses reflect diagnoses Frequently 
seen ina military hospital setting. These diagnoses are: 
SamsOre, GLlELCEOLIOnN im: paoim; Communication, impaired: 
weepbeali- and impeired phusicol meability. 

Critical indicators that foll under the independent and 
interdependent roles of nursing need to be identified. 
After identification, these indicators require 
incorporation into the nursing order screens for selection. 
These critical indicators need to be back-chained to one of 
the four nursing diagnoses, to provide for their selection. 

inescciluieai IneaLicatocs om the Potient Classification 
Critical Indicetors £19:10]3 list that were identified as 
independent or interdependent nursing functions were: all 
Fee tties of daily living except turning Frame; spoon 
Secding GQGult ond children patients; accompany patient off 
ward, other activities requiring nurse’s time and special 
procedures; range of motion exercises; and all items listed 
under teaching and emotional support. This is an initial 
Frouping, conservatively chosen. 

Multiple nursing diagnoses, with their corresponding 
assessments, related factors, goals and nursing orders, can 


be handled with either a File system or a database system. 


ee DOCTOR @RBER CRITERIA 
The criteria to include doctor order categories will be 


E@Pmeeet Criticol indicater requirements and provide a 


za 


representative model of patient orders. An admission 
section monitors the patient Flow. This satisfies the 
critical indicators of admitting and transferring patients. 
An activity section captures the mobility level of a 
patient. A diet section captures the dietary requiremer.. 
OF a patient. A section provides selections of intravenous 
and blood products that a patient might require. 
Laboratory and pharmacy sections allow orders for lab tests 
and medications. A monitoring section allows options for 
monitor orders. A radiology section captures radiology 
test orders. A respiratory therapy and vital sign section 
QqQllows orders that relate to those areas. Finally, a ward 
routine section captures the nursing care activities 
normally restricted to the ward setting. 

These categories would allow for the dependent and 
interdependent functions of nursing, which the critical 
indicator list includes. Either a file or a database 


implementation would satisfy these requirements. 


D> SPATTENT PORDERS 

Microcomputers have the ability to maintain an internal 
Clock upon entry of the current date and time. The program 
would need to pick up this data From the system’s clock to 
attach it to patient orders. The actual order length woulda 
need limitation to a number that would best suit a screen 


presentation Format. The number of options for 


gic 








time/Frequency would need to include those commonly Found 
in a medical environment. 

The design should accomplish the looping for multiple 
Beders in a single subcategory. Once selected, an order is 
activated and placed in an order file or database. fhe 
EaeOuGamM GecuGps fon enother order or to have the user select 


to move on. 


E. USER INFORMATION 

The use of a user chosen password to access the program 
would accommodate all of the identified requirements. 
Utilizing a user information database would provide for 
users to be added or deleted From the program. The 
database carries their status within the organization and 
provides an access level for legal entry into the program. 

A doctor or nurse, by Signing on to the system and entering 
their valid password, would dictate which branch the 
program should route them through. The password would also 
limit those not authorized to use the system from entering 
the program. 

To provide for a degree of user specialization, the 
design proposes four areas of access. The first is for 
admissions personnel. Ina hospital, the admissions 
department is physically separate From the ward. Admissions 
personnel are responsible for the input of patient information. 
The second group is the nurses who develop the nursing 


care plan and determine the patient classification. The 


ed 


third group is the physicians who select doctor’s orders. 

The fourth group is the information systems personnel. Their 
role would be to add new users and delete obsolete ones. 
Access level assignments occur during routine check-in 
procedures of personnel. The actual assigned level would 
depend upon the employing department and the job position. 
Additionally a Fifth group exists for the prototype model. 
This is a group of users, with passwords allowing access 

to all areas to aid in the testing and integration of the 


softwore model. 


Fa: UEXPERT =SVSrEi 

The expert system calls for special input 
consideration. A patient order consists of the order and 
the frequency. Major order headings Ci.e. vital signs] Can 
be categorized as a qualifier. Listed under each qualifier 
is its potential values Ci.e. QID or less, ath og x 56) 39en 
or x le, qin or x et). From this system of qualtis iene 
volue, rules con be derived Ci.a. vital signs OID or less 
receives a valus of 1 patient point). By splitting the 
Critical indicators into qualifiers and values=eenes 
setting up conditions, the formulated rules allow the 
system to derive a patient classification level. (See 


Appendix QO.43) 
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G. SCREEN FORMAT 

User friendliness is a goal many programs strive to 
achieve. This program will follow many of the suggestions 
of Monk’s text on Fundamentals of Human-Computer 
mcecactionm, (ECeOd The program will rely on consistent 
screen formats which locate user instructions in the same 
place on each screen. After patient identification, the 
patient information 1S put on every screen so the user has 
no question which patient he has selected. The program 
will provide the user with consistent input locations. 
Screens are uncluttered and easy to follow. The screen 
color is white lettering on Blue background. Although 
speed is not a prime consideration for this model, it 
influences the selection of the method of screen 
projection. A software utility called Flashcode creates 
the screen projections. Where possible, the user returns 
to ag previous screen, or to a home base to reorient 
themselves. A rudimentary help Facility allows on-line 
assistance. The help facility demonstrates its function 
rather than providing indepth assistance with this 


prototype model. (See Appendix E and Appendix F.) 


fee SOFTWARE SELECTION 

With hardwore choice set by the constraints of the 
user, software compatibility is the remaining issue. 
Numerous software packages exist for IBM-compatible 


microcomputers. Information ina database format provides 


2) 


increased data flexibility and maneuverability. Some 
advanced programming tools provided by database software 
producers simplify the task of programming. These are 
major incentives to choose a database orientation. The 
database language, dBase III, has user friendly features 
and the capability for meeting most of the identified 
requirements. An area for which dBase III can only provide 
aq partial solution is the expert system. The dBase III 
program has the ability to calculate patient point totals 
and derive a patient classification level. It lacks the 
option of allowing the user to see why it calculated its 
results ina specific way. 

The expert system chosen is Exsys. Exsys is an off- 
the-shelf expert system that can accommodate the number of 
critical indicators outlined in the Navy’s Nurse Corps’ 
Workload Management System for Nursing. This software 
product can also do the necessary calculations required to 
arrive at a patient classification level. 

The information format coming into Exsys requires the 
statement of qualifiers and values. The dBase III language 
accommodates for this by including the qualifier and value 
with each order selected. A salient feature of Exsys, that 
makes it especially appropriate for this design, is its 
ability to import data from an output File. Exsys operates 
as an interactive independent program using the same 


conditions and rules. This option is useful because of the 
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iterative noture of both the critical indicator development 
and that envisioned for this system. In addition, Exsys 
does allow the user to view rules used to derived a 
classification. A visual check of the applied rules 
aqgainst the individual patient order allows the achievement 


Of greater reliability. (CSee Appendix D.) 


2” 


U. PROGRAMMING STAGE 


The programming stage constructs a pseducueses sere 
user. The software product incorporates details identified 
in the analysis and design stages to produce a workable 


solution. The product’s overview 1s presented in Figure 1. 





Figures. Nursing Prototype Product Overview 
BOxs1 Coordinating Module 
Boxe 14h Patient Admissions 
Boxe. c Select Ward and Patient 
Box 1.2.1 Select Doctor Orders 
Box 1.2.2 Select Nursing Diagnosis, Nursing Orders and 
Patient Classification 

boxe, Patient Classification 
a Expert System CExsys) 

A modular approach was used for programming. Appendix 


B displays the design modular structure of the prototype 
system--a detailed version of Figure 1. This structure was 


used as a guide in program development. Programming 
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modularity allows the programmer to work with smaller more 
manageable units. This enables the programmer to easily 
test and debug a module before integrating it into the 
system. The use of comments throughout the programming 
effort attempts to improve the maintainability of the 


Beeecgdm. coee Appemdix E For program listings. Jj 


A. TRACKING USERS AND PROGRAM SAFEGUARDS 

In programming modules the author has tried to minimize 
the number of steps required for the user to move between 
modules. Whenever possible, the system automatically 
advances the program to the next screen. 

Screens are used in this chapter to demonstrate the 
method used to convert design details to workable 
solutions. 

The program opens with an introductory screen (Figure 
2). The screen gives informotion on the orgonizations 
Supporting the program and identifies the author. 
Depressing any key advances the program to a screen 
requesting a password CFigure 3). Advancing beyond the 
second screen requires a valid password. fhe program 
compares the entered password against a database of user’s 
passwords. If the password is a match, the user moves 
Forward to the main branching module of the program. 
Incorrect passwords deny access with the opportunity to 


re-enter a password. 
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®ee Please Sign On By Entering Password **® 





**® Possword 


Figure 2 Volidaetianwseseen 


As a result of entering a valid password, the system 


now recognizes the user by name and access level CSee 


reaquce i). 





©®*® Prototype Master Screen *® Dats Time 


®ee® Select the Desired Option *9*® 





1) Admission's Deportment 


2) Doctor's Master 


3) Nursing Master 


4) System Administration 


Gia sign-OF & 





Current User: 


Select one number (0-4) =""-=> « 





Figure 4 Prototype Master Screen 
The Four user access levels available in this program are 
admissions personnel, nurses, doctors, and administrative 
personnel. The current user’s name appears in the bottom 
left renee of each screen. Since the system now 
recognizes a user by nome and access level, the main 
branching module restricts the user’s entry to a branch 
corresponding to that access level. 

The main branching module provides five options for 
selection. fhe First option, which appears on essentially 
every screen, 1S to sign-off From the system. This ends 
the current user’s session, and returns the program to the 
introductory module. The other four options relate to the 


moin sections of the program. 


B. » PATIENT ADMIT Ss28Ns 

The selection of admission’s department advances the 
program to an admit/discharge option module. The admit 
option moves the user to a patient data input secec, 
(Figures 5,6). Admitting a patient requires Che User eee 
input patient data to a patient information dotcabase. silee 
Appendix C for the User’s Manuoal.jJ From this Gotoddase eae 
program uses the potient’s name, Family member prefix- 
social security number (fmp-ssnj, ward, room and bed. 
After entering the patient date, the user Ceturns Coeere 
odmit/discharge module. 

The selection of discharge a petient meves the Useaaee 
the discharge module. The user reviews and selects 


patients for discharge. Upon leaving the discharge module, 


eee SELECT ADMIT / DISCHARGE CEO leN =< 


13} Admit A Potient 


2} Discnarge A Patient 


0) Sign-OFFf 





Current User: 
Select one number (0-2) =="-=> @ 


Figure 5S Admit/Discharge Screen 
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Potient Admission Form ! 





Lost Nome: 


First Nome: Medical Diagnosis: 


Registrotion No: 


mao imitial: Physician: 
Rote/Rank: Prognosis: 
PRMP-SSN: = Rllergies: 
Birthdate: Tot. Nursing Word: 
Age: Room Number: 
Sex: Bad: 

Admit Dote: Tat 


gm A gee nnn ee nn 


Figure 6 Patient Admission Screen 

the program purges all patient records flagged for 
discharge. The program also purges any patient data in 
other databases with identical fFmp-ssn identifiers. (See 
Appendix G.j 

This module limits itself to handling primitive 
OQdmit/dischorge situations. Although limited, this module 
Qllows the nurse user to test a number of patient scenarios 


while working with the prototype system. 


meee QOCTOR ORDER SECTION 

The doctor option of the main branching module advances 
the physician to the nursing ward selection module. The 
Goctor chooses between one of two nursing words CFigure 7). 
A surgical and medical word option reflects the major 


Beevisions Of patients ina hospital. Optians to return to 


oe 


the moin branching module or toa Sign=etl Ene sys caeeed 


aqiso provided. 


A word selection moves the program to one of two 


nursing wards containing six beds (Figure 8]. 





®e Nurse's Station Salection *© Data Time 


eee Select Nursing Unit to Display Patients *e*° 





13 2@E Surgical ward 


~ 


23} SE Masdicol word 


0) Sign-Ost 3) Master Screen 


Current User: 
Select one number (0-3) 2---=> 28 





Figure 7 Nurse’s Station Selection Screen 





@®e Patient Selection *¢ word <5 Sucortear Date Time 


eee Select Potiant eee 








Rm BED PATIENT 

131 A 
ed i218 
3) 2A 
4)°e- 8 
S$} 3 A 
5 Ise 

GO Stems © 7) Master Screen 

Current User: 
Select one numoer (0-7) =22=> »s 
Figure 8 Patient Selection Screen 
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Patients’ names, listed in the potient information 
dotabase, appear in their word, room and bed assignments. 
fae ostians include: Sigm-OfFyereturn to main branching 


module, ond selection of a patient assigned to an occupied 


bed. 


A patient selection advances the physician to the 


aterm Ss oeamcniing module (Figure 3). 


Ward Room Bed Patient Reg # Date Time 


\t*s DOCTOR S TASTER SCREEN eee 





1) Order Entry 

eC} Admit / Transfer / Discharge Patient 
3) Review Medical Orders 

4] Print Medical Orders 


S3} Discontinue An Order 


OF Sign-OFfe 6) Master Screen 





Current User: 
Select one number (0-6) 22#2=]> s 





Figure 9 Dector’s Master Screen 

Tne dector’ Ss menu provides options For deciding on the 
next activity. With the exception of output forms (Ci.e. 
review of the doctor orders on screen or printed), any 
selection results in menu modules for doctor’s orders 
(Figure 10). Many orders request additional order 
information moving the program to a time/frequency module. 
The doctor’s order with the Frequency determines a 


feet ter and value listing in the patient’s arder 


oe 


Ne ee een eee ee renee eee sees eerec eee reece 


Word Roam Bad Patient Reg * Date Time 


eee SELECT WARD ROUTINE =e= 


eee eee een ee reer renee nce eee ee eee ee 


1) Ace Wrap Lower Ext 12) Lumbar Puncture C0) Simple Drsg Change 
2) Chest Tube Insertian 13) N-G Insectian 21) Spec Gravity 

3) Carcumcision Care 14) Pocencentesis 22) Spiral nes 

4} Campliex Orsg Change 157) Prsetetnacary C3) Stecignt Cacna 

S) EXG Rnytnm Strip 16) Range of Metion et) Surgical 

6) Foley Cotn Care Exercises (CPassive) Snoave Prep 

7) Foley Catn Insertion eS) SS Enema 

8) Guice Steals © Restraints C6) Iap water Enemo 

9) Isolation Respiratory, 17) 2-Poaint j 7) Thoracentesis 
10) : Reverse 18) #-=Poaine | @82 Tune Cara Cnot trach) 
Li o Steves 13) Posey C3) urine for S$ &AaA 

00)> Sign-Ofe 30) Docter’s Order Screen 31) Master Screen 





Current Usec: 


Select one number CO0O-31) e*=> 


i —— ——————————aaT 


Figure 10 Ward Routine Screen 
Gatabase. Qualifier and value information transfers to the 
expert system. In addition, a patient point value appeare 


in the patient order database. This number provides the 
Option of dBase [II calculating its own internal patient 


classification level. CSee Appendix G.Jj 


D. NURSING CARE PLAN AND PATIENT CLASSIFICATION FUNCTION 
At the main branching module, the nursing option 
advances the program to the nursing ward selection module 
CFigure 6,7). This module, and the patient selection 
modules are identical to those presented to the physician. 
The program sets an internal flag to indicate the access 
level of the user. After patient selection, the nurse 
gutomatically tracks to the nursing branching module 


(Figure ia 
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Word Room Bed Potient Reg # Dote Time 


<2 NURSING MASTER SCREEN #2 


te RS SE RS Se RS SS SS 


1) Enter/Inoctivate Nursing Care Plan 5S) Review Patient Core Requirements 
2) Review Nursing Core Plan 6) Print Patient Care Requirements 
3) Print Nursing Care Plan 7) Internal Potient Classification 


4) External Potient Classification 


Oj stgn-eer 83 Master Screen 





Current User: 


Select one number (CO-8) *"2"=) s 





Figure 11 Nursing Master Screen 


The nurse branching module provides a menu for 


direction for the user ta proceed. Options include the 


Selection of a new nursing core plan, modifying oan existing 


care plan, reviewing or printing patient core requirements 
Cconsisting of all active patient orders), reviewing or 
printing the nursing care plan information, and determining 
the patient classification system. 

After the nursing care plan option selection, the 
program advances to a module allowing for a new core plan 
Seenu OF GO modification of an existing care plan. The 
choice of a new nursing care plan provides the option of 
the four selected care plans (Figure 12). 

All patients require a minimum of one care plan Cself- 


care deficit). All diagnoses, assessments, goals and 


a7 


nursing generated orders enter into a nursing core datobose 


(Figure 13). In addition to the nursing caseseeeaaa—ee 


nurse generated orders ore also placed in the potient order 
datobose for inclusion in the calculation of the potient 


CSee Appendix F For additional screens.) 





classification. 
ne 
word koom Bad Potient Reg * Dots Time 
eee SELECT NURSING DIAGNOSIS **¢ 
1) Comfort, Alteration sin orn 
2} Communicotion, Impoiresd: verpbol 
3) Impaired Physical Mobility 
4) Self-Core DPEICIE 
OF Sion-O0Gf S) nurse's Mostec Screen 6) Master Screen 





Current User: 
Select one number (0-8) e222) s 





Figure le Nursing Diagnosis Screen 
Word Room Bsd Patient Reg # Date Time 
ee SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS ee 


*#e COMMUNICATES: PAIN FREE, EXPERIENCES LESS/TOLERABLE PAIN OR OTHER GUA 





1) Assess Poin Foctors 6} Offer PRN Medications 


2} Assess & Evaluate Poin 7) 4=Provide Emotionol Support 
3). Encour Pt to Use ECoagrnge Stracecyu B) Schedule "Quiet Times” 
%3 Give Info & Explain Proc & Tests 323 Tsach Alt Coping Strategiss 


S) Other Nursing Orders: | 10} Utilizes Diversionoal Activities 





Current User: 
Select ons number (01-10) ©e== 





Figure 13 Nursing Order Screen 
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If the option selected inoctivates a portion of the 
nursing core plan, the user moves to a module for review of 
Seasting core plom emtries. IF Gn entry is inactivated, 
ene orogram purges all portions related to that specific 
entry including the order in the patient order databose. 

The selection to review or print the patient care 
requirements consists of all active patient orders. Active 
orders consist of previously selected orders, and those 
orders selected for a specific frequency (1.e. x 2) on the 
dote of their selection. The same criteria applies when 


determining patient classification (Figure 1). 


Press -- Ctrl and S -- Keys To Pause The Scrolling If Necessary 
Page No. 1 
82712/86 
Date Time Order Frequency Procticioner 


01/11/86 10:06:20 Taach Alt Coping Strategias G. Harmeyer RN 
01/11/86 12:08:07 Assist Bed To Wheelchair TTD N. Lyons MB 
@ivl1/86 13:10:15 Salf/Minimum Core G. Hormeyer RN 
01/11/86 13:10:53 Keep Commode @ Bedside TD G. Harmeyec RN 
O2711/86 1%:13:%47 Up in Chair w/ Assist ro N. Lyons MD 
fet 1/686 14%:1%:e3 Diabetic Dist N. Lyons MD 
a7le/B86 10:17:1% Cloride Heily @ O600 Tf. Bui MD 

27 ic/86 10:17:40 Sadium ic BUASnD 
01/12/85 10:18:00 Amylase Tt. sulenD 
01/12/86 10:18:26 Potassium Daily © OS00 [. Bul nD 
fale /8G 10:18:56 Coe Datiue@ OS00'7. Sui mp 

fee 12786 10:19:26 CBC Batly @ G600 T. SuienD 

fev le/B6 10:19:5% Platlets Daily @ O600 T. But MD 
01/12/86 10:20:18 Glucose Bovine: O6007 1. Sui np 
@a712/86 10:22:02 Intake & Output Tio Tawoui ne 

Figure 14 Patient Requirement Screen 


The nurse can also select to review only the nursing care 
plan portion of the patient record. This enables revisw of 
the nursing core plan to determine if modifications or 


updating is necessary. 


oo 


Two options for determining paotient classification 
exist. The first option keeps the user in the current 
program, and generates a number with a corresponding 


patient classification Vevel thi gues oor 


Potient: Mary Miser 
Is In: Category I! 


Point Value Is: ef 


Figure 15 Patient Classification Screen 


Fach order receives a point value based upon the order 
selected and the frequency for that order. Then dBase III 
sums these points and assigns a patient classification 
level. The program does not explain how this number was 
calculated. A less user-friendly method results when 
selecting the second option--that of external calcula lira 
of the patient classification. The user exits the dBase 
program, changes floppy disks, and runs Exsys. The patrege 
Point value and level would not change, but the expert 
system program displays rules used to derive the 


Classification level. 
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Ee INFORMATION SYSTEM 

The information system section of the program isa 
poraollel development of the admission’s deportment. User’s 
of the program must have the appropriate access level to 
advance beyond the main branching module (Figure 3). The 
Program limits transactions to adding another user to the 


Sustem or deleting a current user (Figures 16, 171]. 





see SElbe tT ADO 7 OELeTeem USER ©°° 





1) Add A Ussc 


2) Delete A User 


0) Sign-ofrf 





Current user: 


Select ons number (0-2) ===> a 





Figure 16 Add / Delete A User Screen 

F., PROGRAM TESTING 

Testing is an aspect of the programming stage. Testing - 
S@ereceria are three-fold. First, procedural testing of 
separate modules Cwhite-box testing) takes place as modules 
Ore completed. Next, integration testing assures modular 
interfaces are smooth from one program to another Chlack- 
box testing). Finally, independent use by a third party 


tests the program ina simulation performance. Where 


At 


testing uncovered mistakes, program modifications correce 


the errors. 





USER INFORMATION 


eee THIS INFORMATION IS CONFIDENTIAL #¢® 





First Inttial: 
Middle Initial: 
Last Nome: 


Category of | 
kequestor: 


Possword: 


Access Level: 





Figure 17 User Information Screen 
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Cie Pee loNonnor FUTURE STUDIES 


Creating a hospital information system model is a time- 
consuming methodical process. A program using nursing 
diagnosis to drive nursing care plans produces a logical 
Seacauct. Ihe majar implications of this program center on 
the automation of the patient classification system. 

Tying critical indicators to patient orders is an 
orduous task that required many iterations. The program 
makes assumptions about orders. This program assumes the 
physician knows the difference between a simple and complex 
dressing change (see Figure 10). The distinction between a 
15 minute dressing change and 30 minute dressing change can 
be very subjective. Frequency of patient orders relates toa 
Qlmost all the critical indicators. This program separates 
Bae time/Erequency aptions into prn Cas necessary), once a 
fa, 6 6hCWICe a Gay, 3, t, 6b, le and et times a day. The 
latter seven options divide further into recurring orders 
Ci.e. twice a day) verses nonrecurring orders C(x 1e). 


Recurring orders continually count toward the patient 


Classification level until discontinued. The nonrecurring 
orders count anly on the day ordered. Nurses calculate 
Classification levels daily at 1400. Many nonrecurring 


orders are completed by that time and should not be 


Calculated. The program counts these orders. 
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Duplicats orders result in duplicate point 
calculations. For example, if a doctor and a nurse each 
order passive range of motion exercises for a patient TID, 
the patient point total would bs 6&6 vice the corrsct total 
of 4. The program tallies 2 points fer iselativen 
precautions regardless of the numbsr of gown and glove 
changes. The correct assignment gives @ points for every 
eight gown and glove changes. 

In the current manual system, doctors and nurses assume 
that new orders supersede previous orders. If doctors ame 
nurses hold to that assumption, this program produces 
inaccurate results. For example, if a patient’s condition 
improves, the doctor writes an ordsr for vital signs Q@4h 
Cwith a patient point value of 2) without delsting the 
Original order of vital signs Qeh Cpatient point value of 
4). The program totals vital signs points as & instead of 
a4 

some critical indicators do not readily convestecere 
patient point value. The program accommodates for three of 
these critical indicator exceptions. The critical 
indicator For apnea monitor, temperature monitos, Cte. 
not additive and as such translates indirectly from patient 
orders. Ihe critical indicator For Spesific gsavrtee 
Guiac, etc. is additive across orders resulting ina point 
total assignment. The classification listing limits 


emotional support to a maximum total point valus of 10. 


Ly 


Pestoningece patience point volte to these patient orders 
requires an intermediate variable. The calculation occurs 
first for the intermediate variabie. This amount then 
Feeds into the sum of other patient point values. 

Medication and laboratory critical indicators presented 
Gifficulty in program translation. The program assigns 
Beants fOr medication and laboratory samples on a per order 
basis rather than ona per trip basis. The intended 


Critical indicator for both factors assesses points ona per 


trip basis. The nurse actually delivers all the medications 
For a specific time in one trip. The nurse draws numerous 
lab tests with one venipuncture. The program calculates 


point values based on individual medication or laboratory 
test order. Aggregating nonintravenous medications and 
laboratory tests into time groups would provide accurate 
results. However, the effort required to program in time 
Groups was counterproductive for this project. 

The program overlooks patient situations requiring more 
than one staff member. CUEGeERclo wel! “eeitical indicators 
except turning frame, which explicitly includes two staff 
members, calculate ona one staff member per patient basis. 

To accommodate for patient orders not currently listed 
on the nursing order screen, an "other orders” option 
exists (€see Figure 133. The option allows any nursing 
Order entry. Entries in this category result in no patient 


points awarded to those orders. Despite their critical 
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indicator value, the program lacks the refinement necessary 
to assign a value to this order. 

Many of the areas addressed can be corrected by going 
into ine expert system’s interactive mode. In this mode 
the program calculates entries ina more thorough manner. 
The trade-off for accuracy is user subjectivity in 
selecting applicable critical indicators. Another 
trade-off is the time required to traverse 85 qualifiers in 


gq real time setting. 
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UIT. CONELUSION 


eee systems exists that combine nursing diagnoses 
with the nursing care planning function. No automated 
system on the market integrates nursing diagnoses, nursing 
care plans and patient classification. The Navy Nurse 
Corps has a sophisticated patient classification tool. The 
meal Lists critical indicators which edapt readily to 
Qutomation to produce a classification level. 

This thesis project iS o programming effort producing a 
prototype softwore product marrying three nursing 
activities--nursing diagnosis, nursing care plans, and 
patient classification. This project demonstrates ane 
possibility for integrating the nursing care plan using 
nursing diagnosis and the Navy Nurse Corps’ patient 
Classification system. The program extracts points for 
@eicical indicators from patient orders. 

The greatest incentive for marrying nursing diagnosis, 
nucsing care planning and patient classification is to 
improve patient care. Improved patient care results from 
precise documentation and uniform staffing. Nurses 
Qcknowledge the need to document plans of care to serve as 
Q guide for all staff members. Nursing is a seven day a 
week, c4% hour a day profession. Care plans provide a 


consistent, comprehensive method for delivery of patient 


a 


core. Without this plan of care, valuable nursing time 
disappsars while continually redefining basic patient care 
requirements. Successfully implemented automated systems 
have HaaRaees documentation by making it sasier, less 
time-consuming, and more user gratifying. 

Patient care is also enhanced through better Sstottage 
Of nursing units. Staffing levels relate directly to 
patient care requirements determined by patient 
Classification. The program automates the patient 
classification process to calculate an accurate and 
objective measure of patient care requirements. Staffing 
to a level that can be objectively quantified is a goal. 
Such a level assures nursing administrators their scarce 
nursing resources are properly utilized while at the same 
time providing staffing levels in keeping with safe 


SsStondords of care’. 
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APPENDIX A 


DATA DICTIONARY 


(Local looping variables omitted) 


Module: 

Variable Name: 
Aliases: 

mormot OF Data: 
Allowable Value: 


Files Variable Used: 


Comment: 


Module: 

Variable Name: 
Aliases: 

mormat Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

meemat OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 
Variable Name: 
Aliases: 


Pneee. Fog 

Flash 

None 

Be eocrer 

ine Ct.) 

All modules 

Flash Code specified variable, 
LiZeomvemct Tom tO Gcisplaying 
SCreens. 


osc 


Uo Pigdaeeg 

Xusepass 

None 

Character 

SerInowoc 3) GmOoroctercs 

Velad:. Pag 

A concatenation of Xusepasil through 
XusepasS (C€single characters) to 
Form the individual’s password 
entry. Xusepass is compared with 
those in the Useinfo.Dbf to deter- 
if the entry received is a valid 
password. 


Ved eg 

Curuser 

None 

Characters 

Sea eemGceuoncoa cs Charactecs 

All modules except Intro, Pt_Info and 
Useinfo 

RAR concatenation of UfFinitial and trim 
Ulname. Is displayed on the screen 
based on password entered and name 
associated with that password in the 
Useinfo.Dbf. Curuser is also entered 
as the practitioner or nurse in the 
eders. OSE or INGEGreds.Dbf. 


Vela Pog 


Useacc 
None 
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Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 
Variable Name: 
Aliases: 


Numeric 

O = 24 

Master .Prg 

When a new user is entered into the 
system an access level is assign. 
This access level allows for privacy 
and security in the program. 


Master .Prg 

Omodule 

None 

Character 

Bo oe IN 

Warde and Ward3.Prg 

Serves as a Flag when exiting the 
Warde or Ward3.Prg indicating 
which module called, those 
pertaining to the physician staff 
or the nursing staff. 


PC_ I née. hag 

Xplname 

Xdclname, Plname 

Character 

CO characters for patient’s last name 

All Files except Intro, Valid, Master, 
Ward and Useinfo.Prg. 

Used in the Pt_Info.Dbf and .Prg. 
Called by Warde and Ward3.Prg. 


PE einfo.ese 

Xpfname 

XdcfFname, P&Fname 

Character 

le characters for patient’s First name 
See discription above for Xplname. 

See discription above for Xplname. 


PES I ntsaaeea 

Xpmname 

Xdcmname, Pmname 

Character 

Up te 3 EGhgracter strings 

Pt_Info and Discharg.Prg. 

Represents the patient’s middle 
initials. 


Pt_I née. Pap 
Xfmpssan 


Xdcfssn,Fmpssan,Ptfmpssn, Mptfmpssn 


Die 


Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 
Variable Name: 
Aliases: 


Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Nodule: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Poermat OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


and Xptifmpsss...Xpiefmpssn 
CWarde/Ward3.Prg) 

Character 

2 digit numeric code, a ”"~-”, 
social security number. 

See discription above for Xplname. 
See discription above for Xplname. 
The unique identifier for each 
patient. Variables with an "Xpt” 

prefix indicate they are ward, 
room and bed dependent. 


then 


Ree rnto. Peg 

Xpregno 

Pregno,Ptregno and Xptiregno... 
Xptieregno CWarde/Ward3.Prg) 

Charaecrer 

Numeric 8 digit number 

See discription above for 

See discription above for 
Represents the hospital registra- 
tion number. Variables with an ”X” 
prefix indicates they are ward, room 
and bed dependent. 


Xplname. 
Xplname. 


Pt_Info.Pag 
Xpphy 
Xdepphy , 
Character 
Up to e@4% characters 

Pt_Info and Discharg.Prg 
Represents the patient’s physician. 


Fohy Gnd Xdceprac 


PE_lnee.rreg 

Xpward 

Pwaord 

Character 

Vee Eon. SE 

See discription above for Xplname. 

See discription above for Xplname. 
Represents a ward assignment. 


root @6O.Feg 


Xprm 

Prm 

Character 

oo »o” Or peat? 


see discription above for Xplname. 
see discription above for Xplname. 
Represents rooms on the ward. 
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Module: 

Variable Name: 
Aliases: 

Format OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module:. 
Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 
Variable Name: 
Aliases: 

Format: Ge ata. 


Pt_Info 


Xpbed 

Pbed 
Character 
ae. 33 or et 


See discription above For Xplname. 
See discription above for Xplname. 
Represents beds ina room. 


Biseharg. era 

Xppack 

None 

Logical 

bo. (Ol irakee 

Dischneseg.w se 

Flag to indicate if a patient had been 
discharged. If .T. Pt_Info.DbF has 
discharged patient’s database 
purged. 


Word.Prg 

Ourpt 

Xpti.. .xXptlie CWorde/Words eae 

Character 

Xpfname + Xplname 

All modules except Intro, Valid, 
Pt_Info, Useinfo, Master and Ward. 

Signifies which patient From the 
Pt_Info.Dbf has been selected by the 
user. The variables with an ”X” 
prefix indicates they are ward, 
and bed dependent. 


room 


Ward.Prg 

Ofreq 

Xdcfreq, 

Character 

Blank, options in Time.Prg or options 
in, [\VGgeeg. 


Nf req 


All order modules CTransfer, Activity, 
IVA, Lab, Monitor, Phaml, Phamée, xXAgage 
Xray, Diet, Lung, Routine, VS and 


aoll Norder*.Prg) 
Indicates frequency of any ordered 
OGtEtom. 


Mepalal aie 
Passdata 
None 

Character 
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Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Voriable Name: 
Aliases: 

Format OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Voriable Name: 
Aliases: 

Pormot OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Poemat OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

mormat Of Data: 
Allowable Volue: 


Files Variable Used: 


Comments: 


Module: 
Variable Name: 
Aliases: 
Format Of Data: 


"Q” number space number 

All order modules (Csee Ofreq) 

Used to pass data to the external 
expert system. Indicates qualifier 
and value to be used. 


Ward.Prg 

PEpeiInt 

Xpoints 

Numeric 

Positive integers 

All order modules 

Assigns points to orders selected by 
user to be used in determining the 
patient classification system. 


>= O 
Csee Ofreq) 


Word rEg 

Todayonly 

None 

Logical 

Wie OL” gars 

All order modules Csee Ofreq) 

Assigns a .!-. for orders of one day 
Frequency for the patient 
Classification system. 


WEG arhe 

Monpoint 

Xmonpt 

Numeric 

Integers O or 6 

All order modules Csee Ofreq) 

Used to evaluate orders in the Monitor 
Thiage puis neluded im the Orders.Dbf 
to determine patient classification. 


Ward. iG 

Emopoint 

Xemopt 

Numeric 

Positive integers >= O 

All order modules Csee Ofreq) 

Used to evaluate orders in the Emosup 
-Prg But included in the Orders.Dbf 
to determine patient classification. 


Word.Prg 
Roupoint 
AGOupDt 
Numeric 


oe 


Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Daca: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Poumeat. OF Bata: 
Allowable Value: 


Files Variable Used: 


Positive integers >= 0 

All order modules Csee Ofreq) 

Used to evaluate orders in the Routine 
-Prg but included in the Orders.Dbf 
to determine patient classification. 


Ward.Prg 

Ptselect 

None 

Character 

Porm + Phed + C(Xpti or Xpte ...) 4am 

All modules except Intro, Valid, 
Pt_Info, Useinfo and Master. 

Signifies which patient, the room and 
bed for screen headers. 


Ward.Prg 

Morder 

Order, Xdcorder, 

Character 

Character string up to 27 

All order modules (see Ofregq) 

Patient orders requiring action on the 
port GE the nespital steers 


Nord 


BOGEGr 7esg 

Dmenu 

None 

CHGOEGECECE 

93 l 93 Oc 33 33 

Doctor, Doc_Menu and all order 


modules Cexc. Norder*.Prg). 

Flag to indicate if a return is to the 
Master.Prg module or to a doctor 
level module. 

Time.Prg 

Timeopt 

None 

Numeric 

Least 

All order modules Csee Ofreq) except 
Transfer .Prg 

Used to determine Frequency of order. 


Time.Prg 

Xtimetime 

None 

Chacactes 

Character string of %& 
Time.Prg 


co 


Aliases: 
Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 
Files Variable 
Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Voriable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 
Variable Name: 


Used: 


None 

Chaeeeter 

Character string of 19 

Emosup and Teach.Prg 

Recieves input for Ncaoredb.Dbf related 
to the teaching and emotional 
requirements of the patient. 


N_Diag.Prg 

Nrelate 

None 

Character 

Character string of eS 

Relote_1...Relate_%.Prg 

Recieves input for Ncaredb.Dbf related 
to why the patient has the nursing 
diagnosis chosen. 


Ne biag.-sq 

Ngoal 

None 

Choracter 

Choracter string 38 

bende. ooal + .Prg 

Recieves input for Ncaredb.Dbf related 
to goal achieveable by the patient. 


N_Diag.Prg 

Nassess 

None 

Character 

Character string of 27 

Assess_1...Assess_'t.Prg 

Recieves input for Ncaredb.Dbf 
relating objective observations and 
subjective information to the nur- 
Sing diagnosis selected. 


N_Diag.Prg 

Assoth 

None 

Character 

ENGEBCECE String of 27 

Assess_1...Assess_4.Prg 

Allows an assessment of the patient 
not currently provided on the 
screen to be entered. 


N_Diag.Prg 
Reloth 


Ee 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliasas: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Provides an option for a time cf aan 
that is not provided on the screen. 


IVA.Prg 

Morderl 

None 

Character 

“Start. Cl sotee 

"Alternate [VU w/” 

"Follow [IV w/” 

"Interrusat (VU lGecr” 

"Start ‘end, 1Usoe 

IVA and IVUB.Prg 

Initial portion of the patient order 
For IV therapy. 


IVB,.Prg 

Blood 

None 

Legica: 

os: se) Geek a 

IVUB and IVC.Prg 

Flag to indicate whether blood was 
ordered or not. Significant in the 
determining of patient 
Classification points. 


Lung .Prg 

Xliter 

None 

Character 

7S ae ean 

#0. 3=45 Fim 

*@. 5-6 177m 

"57-6 7m 

a S=10 5) 7 mr 

Lung.Prg 

Xliter is concatenated with the screen 
selection to indicate oxygen flow 
rate for the patient. 


Discont.Prg 

Xdcdate 

Odate 

Date 

Date of the medical order 

Discont.Prg 

Allows user to review date of an order 
to determine if medical order should 
be discontinued. 
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Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format Of Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 
Variable Name: 


Hisconta.cG 

Xordpack 

None 

Logical 

eer PF 

Discont.Prg 

Flag to indicate if medical orders are 
to be discontinued. If .T., deleted 
orders are purged from the 
Orders.Dbf. 


Nurse.Prg 

Nmenu 

None 

Character 

we OG ae 

Nurse, Nursel, and N_Diag.Prg 

Flag to indicate if a return is to the 
Master.Prg module or to Nurse.Prg 
module. 


Nurse.Prg 
Xlevel 
None 
Character 
"Category I” 
"Category II” 
"Category III” 
"Category [V” 
"Category VU” 
"Category VI” 
Nurse.Prg 
Indicates patient classification 
level. 


N_Diag.Prg 

Nursdiag 

None 

Character 

ZeEnsioh own ceration ine. Pain’ 
"Communication, Impaired: Verbal” 
Simpairea Physical Mobility” 
rPeeiE-Core Deficit” 

N-EDLeg.Prg 

Nursdiag is of the four values 


indicated, and directs which branch 
the program will Follow. 

N_Diag 

Emoteach 


D7 


Aliases: 
Format OF Data: 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

Format OF Data: 
Allowable Value: 


Files Voriable Used: 


Comments: 


Module: 

Variable Name: 
Aliases: 

FOEMGe UE Uata;- 
Allowable Value: 


Files Variable Used: 


Comments: 


Module: 

Variable Name: 
FOEMGteLIE “Boca: 
Allowable Value: 


Files Variable Used: 


Module: 

Variable Name: 
Aliases: 

Pormoae Of Bata: 
Allowable Value: 


Files Variable Used: 


Comment: 


Module: 
Variable Name: 
Format Of Data: 


None 
Characces 


Character string of 25 

Relate_1...Relate_'t.Prg 

Allows a related factor not currently 
provided on the screen to be 


entered. 


N2Dilge.t ce 

Goaoth 

None 

Character 

Character string 38 
G00]. 1... Goeatete ead 


Allows a patient’s goal not currently 
providec on the screen to we 


entered. 


Ne Digg. ce 

Ordoth 

None 

Charocter 

Character string 27 
Norder*.Prg 


Allows for a nursing order not cur- 
rently provided on the screen to be 


entered. 


Useinfo 
Xufinitial 
Character 


Any First initial of user 


All modules Cexcept Intro and Valid) asa 


concatenation with Xulname. 


Useinfo.Prg 
Xulname 
Xdlulname 
Character 


Character string of length cod 

All modules Cexcept Intro and Vaolidj 
as a concatenation with Xufinitial. 

Character string representing the 


user’s last name. 


Used as a concat-— 


tenation with Xufinitial to form 


Curuser. 
Useinfo 


Xcodeword 
Character 
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Allowable Value: Any 5S characters representing a user’s 
password 
Files Variable Used: Valid.Prg 


Module: Useinfo 
Variable Name: Xaccess 
Format Of Data: Numeric 
Allowable Value: Ome re 34. Or -t 


Files Variable Used: Master.Prg 
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APPEND IAs 


STRUCTURE CHAR® 
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Megend For Structure Chart 


fe-— SOx labelled 1 | 
Box Description: Do Introduction/Validate User 


* -- Box labelled e 
Box Description: Choose Path 


ee-— Box labelied 3 
Box Description: Do Admission Department 


fe>- SOx labelled 3.1 
Box Description: Admit Patient 


2e-—- BOx labelled 3.c 
Box Description: Discharge Patient 


me - BOx labelled ‘t/5 
Box Description: Select Ward 


-e-- Box labelled .i/S.1i 
Box Description: Select Patient 


fee - SOx labelled 4.1.1 
Box Description: Select Doctor Option 


meee Box labelled 4.1.1.1 
Box Description: Select Medical Orders 


Se-—- Box labelled +.1.1.e 
Box Description: Discontinue Order 


gee BOX labelled 4.1.1.3 
Box Description: Admit/Transfer/Discharge Patient 


mee SOX labelled ‘t.1.1.4 
Box Description: Print/Review Orders 


eeeo- BOX labelled 5.1.1 
Box Description: Select Nursing Option 


eee SOX labelled S.1.1.1 
Box Description: Select Nursing Care Plan 


fea BbOx labelled 5.1.1.2 
Box Description: Review/Print Nursing Care Plan 
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* —-— Box labelled 5.1.) ).5 
Box Description: Review/Print Patient Care Requirements 


* -- Box labelled &S&.1.1.4 
Box Description: Determine Patient Classification Level 


* -- Box labelled 6 
Box Description: Do Data Processing Department 


*-—-— Box labelled 6.2 
Box Description: Add New User 


* —— Box Jobe leds6.2 
Box Description: Delete User 


64 


APPENDIX C 


USER’S MANUAL 


This software product is a prototype model for the Navy 
Nurse Corps. The user’s manual, as well as the software 
product, presupposes a working knowledge of medicine and 
the normal Functioning of a hospital. The user’s manual and 
the software product require a working knowledge of the 
nursing process using the nursing diagnosis and the patient 
e1assification system. 


This manual contains four subdivisions: the admission’s 
Seportment section, the physician section, the nursing 
section and the system’s administration section. The 
admission’s department section allows patients to be 
admitted or discharged. Admission of a patient allows 
the selection of doctor’s and nursing orders. Admission of 
Bepatcient also initiates the determination of the patient 
Classification. The system administration section allows 
users access to all or only one of the program sections. 


I. Beginning the Program 


To begin the program insert disk A:1 into drive A 
Cnormally the left sided drive, or the top drive) of your 
IBN, or compatible, personal computer. The computer should 
have 6Y4OK of internal memory. Next insert disk B:1 into 
Grive B. Turn on the power for the monitor, disk drives 
Cthe computer), and printer (for written reports). The 
meeot Prompt is For the date. The date Format of 4-1-8656 is 
acceptable. The computer also accepts a date Format of 
%-1-1986. Follow this with <enter>. The next prompt is 
Bee time. The Format of 14:45 is the least number of 
keystrokes, however the computer accepts seconds as well 
Cie. 14:45:30) <enter>. An A> prompt then appears. To 
Begin the program, type b:proto (capital, mixed or small 
letters) <enter>. 


A manufacturer’s introductory screen appears with a 
prompt of: "Insert System Disk 2 and press ENTER or type 
CTL-C to abort”. Remove disk A:1 and insert disk A:2 into 
Grive A and press <enter>. Another manufacturer ’s 
introductory screen temporarily flashs on the monitor. 

A screen with a Nurse Corps oakleaf and background 
information, Figure 1, replaces this screen. 
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A PROTCTYPE eo er 
eee eee 
PROJECT : . 
eee 2#oe@e 
FOR a 3 BY 
@aese eee 
THE ° ° GARY R. HARNEYER 
ocne once LCOR NC USN 
NAUY NURSE CORPS ° ° 
° © MARCH 1985 ) 
= @ ! 
° ° NAVAL POSTGRADUATE SCHOOL - 
@#eee @eeeoe ’ 
® ° MONTEREY, CALIFORNIA 


RELEASE 


PRESS ANY KEY) 2.5" EEGIN 





Pagume. 
Program Posswerds 


to move to Figure 
t cf a Five ietter password. Sample 
Tassuc cram sre: ievel 0 -- mouse, level i 
-- lyons, level 2 -- Fiyup, ievel 3 == littl, engi ae 
-- getgo. The password allows access further into the 
program, and level indicates which areo a user may enter. 
Regardless of password used (provided it 1S an acceptable 
possword, see System’s Administration section) the next 
screen is Figure ec. 


Linen 
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ee Prototype Master Screen °° Date Time 


eee Selec: the Desired Oction *e@ 





1) Admission’s Deportmeant 


2) Dector'’s Master 


3) Nursing Master 


3} System Administretion 


GieSien—-ec. 





Current User: 
Select one number (O-4)] e772") «¢ 





Figuce.c 


This screen, the Prototype Master Screen provides a 
branching point to the four major areas. Depending upon 
mme passworc usec and option cnosern, the program moves to 
mms St, s Of 5S. Sign-CFF 2s an ecoticon given on mest 
meeeens to returm to Figure i. 


Ii}. Admission'’s Depertment Fersonnel 


Access level O or 1 will allow access to the 
Admit/Discharge screen (Figure 3). 


eee SELECT ADMIT 7 DISCHARGE OF. Cee 





1} Admit A Patient 


ee) Discnorge A-fasienc 


O) ‘Siten-288 





=2e@ene) B 


Select one numper (0-2) 


Current user: 
gp a eS SS SSS tl fe > SSSSSS  e t pSS  SSSS  SSSSSSSSSSSSSSSSSSSSSS  SS 


Ficuce 


LJ 


A potient can be admitted or discharged, cdependingwen 
Bt:on selected. Selecting cption 1. moves the user toa 
e3.1. This informetion creates G 3Stient Getaseaen 


oe 


ne 3S 
wy Ut 


U 
Les 


eat, 
bo be 


Tne Patient Admission Form 


The Patient Admission Form C€Figure 3.1) consists of 17 


input areas. 


68 





Potient Admission Form 
et a RRR 9 SS SR hs RRR Se 


Medical Diagnosis: 


Last Nome: Registration No: 
First Nome: 





mec Initial: Physician: 
Rote/Ronk: Prognosis: 
fine —SON: = Allergies: 
Birtndote: 4 Nursing word: 
Age: | Room Number: 
Sex: Bed: 
Admit Date. 7 ae : 

PiAguGge s,s 


feeeo tubing each category, press <enter> to move to the 
mex. COCeRCTL. The omaunce o& inforcmation and the 
MesePDoooble™inputs cre as fFoilows. 


Lost Nome: Allows uc te 20 letters in tne paetient’s last 
Die OmemeulcOmee seg. =U ecapltalizes the first 
letter. 

First Name: Allows up to le letters in the patient’s First 

mame Qmd OQucOomatically capitalizes the first 
letter. 


Mid Initial: Allows up to 3 letters in the patient’s middle 
name to accomodate for No Middle Name CNMIN). 
Capitolizes all letters entered. 
Rank/Rate: Accepts up to 11 letters and capitalizes all 
letters entered. Iypical Formats would include 
Woa7INZAU. GOL/AF/RET ec GhOoHuUn. 
Mees OON: Family Member Prefix CFNP) Code includes the 
sponsor’s Social Security Number CSSN). Valid FMP 
code numbers and relationships are: 


Gal Sponsor’s oldest child Cincludes 
stepchildren) 

‘f=, Sponsor’s next oldest child 

Oa, 02 meee. Spoemsor’s third oldest, etc. 

eC Sponsor Cactive duty, reserve and 


retired uniformed services personnel: 
Army, Navy, Alr Force, Marine Corps, 
Coast Guard, Public Health Service 
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and Notional Oceanic and Atmospheric 
Administration) 


ae Sponsor’s spouse 

+O Sponsor’s dependent mother 

15 Sponsor’s dependent father 

50 Sponsor’s dependent mother-in-law 

55 Sponsor’s dependent father-in-law 
60,61, etc. Other authorized sponsor’s dependents 
00 All other authorized personnel 


Cforeign nationals, including foreign 
military, civilian humanitariemes 


etc. ] 
Birthdote: Use the format 08/25/50. 
Age: Allows up to 3 letters or numbers. Mixing numbers and 


letters is possible to accommodate for 11M €11 months 
Old) or 15D €15 days old). Age denotes yeors unless 
mor D are Filling the third inpucyspeee: 

Sex: Allows one letter input. Valid letters are: 

ft = Male 
F = Female 
U = Unknown 
Admit Date: Use the format 12/13/85. 
Registration No: The local hospital sequential number of 
in-patients admitted during a specified 
DEElOa Of (eime. 

Medical Diagnosis: Diagnosis listed by the admitting 
physician and listed on the admission 
outhorizotion form. Enter up tovee 
letters. 

Physician: Patient’s assigned physician, not 

necessorily the admitting practitioner. 
Enter up to ec4% letters. 

Prognosis: Allows entry of up to 3 letters. Allouw- 

able prognosis codes and descriptions are: 


E Excellent 
FE od 
G Good 
LJ Unknown 
GRD Guarded 
E Foor 
Allergies: Patient’s allergies as stated in the 
health record, or by the patient. Enter up to e4 
letters. 
Nursing Word: Two words are possible: cE Ca surgical ward) 
or 3E Ca medical ward). 
Room Number: Room number is tentatively assigned by the 
admission deportment, pending confirmation by 
the word personnel. Room number options are 1, 
2a OG ou 
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Bed: Actual bed assignment combines a room number and a bed 
letter. Bed letter is tenatively assigned by the 
admission department, pending confirmation by the ward 
personnel. Bed letter options vary between A and B. 

Once the potient file is complete, the program returns to 

Figure 3 for another selection. 


Discharging a Patient 


Selection e CFigure 3) moves the user to Figure 3.e 
CDischarge A Patient Screen). A patient is uniquely 
identified by listing of FNP-SSN. The screen displays one 
patient ’s FMP-SSN, name and practitioner at a time so the 
user can decide which patient to discharge. The user can 
discharge more than one patient before returning to the 
Admit/Discharge Screen (Figure 3). 


III. Physician Personnel 


Figure e (Prototype Master Screen) has two valid choices 
mee the physician, O (Sign-Off) and e CDoctor’s Master). 
Option O returns the physician to the Introductory Screen 
(Figure iJ. This selection implies intent to leave the 
computer session. 


Selecting a Patient 


selection e CDoctor’s Master) advances the physician to 
Figure % CNurse’s Station Selection). The physician is 
able to choose patient ward or return to the previous screen 
CFigure 2). 


ao 


ee a er gene 


®® Nurse’s Stotion Selection *° Dots Time 


eee Seaiact Nursing Unit to Display Patients eee 


12 2E Surgical ward 


a 


2) BE Medics! word 


O27 Sign-Che 3) Master Screen 





Current User: 
Select one nunmper (0-3) ==—=]) « 





Figure + 





oe PSsiear it. Ss@vese cca. 4 WEES: 22. SBweervec- Uate 7 ime 


eee Saeliec: Pcotiser: see 


Rees aes alk 
1] i A 
e)*. 8 
3] 2 A 
neous 
5] 532A 
Goes 
0) Si6gn-GfrFt *’) Master Screen 


Current User: 
Select one number (0-7) 2f="2> »8 





Figuse 4.02 


Selection 1 (Figure *) Follows with Figuce %t. loa .lParrewse 
selection for Ward CE). Patients assigned ta Woarae oe 
the admissions department appear in their room and bed 
assignments. Choosing any one of the six patients advances 
the user to Figure 4.1.1, the Doctor S "GStecqesec-ecue 


12 


a 


word Room Bed Potient keg « Dote Tame 


eee PostOR' S MASTER SCREEN eee 
a 


fee Order Entry 

2) Ramit / Transfer /’ Discnarge Potient 
3) Review Medical Orders 

4) Print Medical Orders 


S) Dascontinye an Order 


Cometoem—er.. o> Mastec Screen 





Current User: 
Select one numoper (0-6) **2"> -« 


| ° 
Pag iis 4.) al 


Word, room, bed, ratient and registration number appecrs on 
sne second i:ine cf each of the screens tc assure proper 
Mepegem. .Aentcifi:csation 18s present. the igentical sequence 
Mepeeows €O° selection 2 (Patient Selection For ward 
Meme Oster Screer :S sm Setion on most screens and 

ceo este kaon cine os. gnm-Off sation. Sign-OFF is the 
oprropriate selection 1f the computer session 1S over. 
Master Screen allows the user to select a different patient 
to enter orders on without requiring the physician to redo 
the user identification process. 


Doctor Selection Categories 


Bveure t.1.1 €Doctor’s Master Screen) is a branching 
Sereen. Selection 1 advances the user to Figure 4.1.1.1 
CDoctor’s Order Menu). This optiscn allows the physician to 
enter patient orders associated with medical treatment. 
Seerrection c moves the user to Figure 4.1.1.e€ (Admit/ 
Tronsfer/Discharge Screen). These orders impact the 
GQdmission’s department as well as the patient core areas. 
The admissions department must enter the patient into the 
computer system prior to their selection by the physician 
for order entry. The selection of ADMIT officially enters 
the patient admission status in the doctor’s orders. 
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word Room Bad Potient ke Date Time 


eee DPCOCTOR S OREER OD ENU eo 





13} Activity 6) Pnormacy 


2} Diet 7) Radiolagy 


4} Lanorotory Tests 3) vitol Signs 


193 word Routines 


3) IV's / Biocod | 6) Resoirctory Theropy 
| 
| 
5) manitering 
} 
| 
| 


COl” Si99- fF L223 Docter ss Aoste- Sereen 12) moste- Screen 





Current user | 
—-318Ct one numoer (00-12) ef2> as 





Figure Seer. 1 


REVLEWINS Soe2e 7°  on7eee 


selection 3 and &, cf& the Occter’s Naster Serserna- a 
only in tne location cf their cutput. Selecticn sais eeee 
patient medical orders on the menltGl Screen. ates 


4.1.2.3, 18 @ screen output to review medicolivo-cgecse 





Patient Orders For: Macy Miser 


Press -- Ctrl and S -- Kays to Pause The Scrolling If Necessary 

Page No. a4 

2712/86 

Dats Time Order Frequency Practitioner 

evil /786 14:13:47 Up im Chaic w/ Assist TLD No buon ho 
See ti 7/85 1i4%:1%:23 Oiabetic Diat N. Lyon mo 
eee 785 14:15:42 Start [VU of .45 Nall Infuse co BHr N. Lyon MB 
eee /BS 10:17:14 Clorcide Daily @ O600 N. Lyon MD 
Ge7ic/8S 10:17:40 Sedium N. Loon mo 
01/12/85 10:18:00 Amylase N= Jeuen- ho 
mie /85 10:18:26 Potassium Daily @ O500 N. Lyon MDB 
Wee te/8S 10:18:56 CoOe Daily @ O500 N. Lyon MDB 
wee 1e/85 10:19:26 CBC Dailo © 6500 N’. Lucn fb 
Oi .c/B8S 10:19:S4% Piatlets Baiiy@® O500 N. Lycnm MB 
So, iec/85 10:20:18 Glucose Baiiuw © O500 N. Lyen AD 


# 


Pei e. aie dS 


Selection % provides the same medical order output on the 
Beanter. Selection S&S (Discontinue An Crder) advances the 
Meter. or Co fraigure “*.1.2.%. ine screer displays each 
Sere s. Order on the selected oetient with the sotian ts 
Pees onc NUE Omy Obsolete crcers. 


selecting Doctcr’s Orders 


mme Doctor's Order Nenu (Figure 4.1.1.1) provides a menu 
to select a medical treatment category. A rudimentary 
Seeection 11st of medical orders follows each of 
the ten major hneadings. Selection i (Figure 4%.1.1.13 moves 
mem prograom to Figure 4.1.1.1a. 


@ 


An et 


eee eee ee eee eee eee SS SSS Ss SG 


word Room Bad Petient Reg @ Date Tams 


eee SELECT ACTIVITY LEVEE ees 


eee ee een en en eee ee ee ene nn nnn enna en eae ee ee ee ee eee SS 


1) AmbDulate ad lib 7) Doangis Legs 
2) AmbuUlate w/ ASsSi stance 8° Keeo on Bacx 
3) Stlic= Gedcreas: 3) Moy Snower 

%) Bedcrest w/ BRP 10) ‘itvensboatveane 


S? Bedsidce Commoas 11) Turning Frame 


6) ©0O8 to Strecner w/ ASSist 12> Up in Cnoir w/ Assist 


oS) Sores eae La) /O6etes Ss) Seeec  Sereea7 142 Master Screen 





Curren. user: | 
Select one numbec (OC=14) ===) 





FLGUSe: So ae 


Twelve selection criteria follow. When entering a 

number less than 10, enter either O3 or 3 <enter> to 
advance tne srsgram. Same selecticns request Gc time sr 
-requency. itnese select:ons cre €. S&S. 7%. 20.2 oven 
uUnisSn move swne Seesram tC Fi. evse see eee ore ae 
tamesFresguency CGsticond. A lise ef 35 es22e¢seaareee 
Selection “0 is s Srief on-line hells caw 20 ene ae 

See ayers: A selesz=:ion of Yt] returns he Sresgran  ceucnd. 
previous screen with no frequency indicated for that order. 


Options S&S, &, 9, e@4, 2&3, 43, 35,37 e8nee2ss ogee een eee 
selections. All otner options are ongoing until 
EISEGHMEADVUEE. 
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re eee reer cece ees eres reece asec ac cre sceneee ree rea 


word Room Bed Botient Reg * Dote Time 


See - Lise mie REGUENCY OPTION ec- 





i PRN * Sari C fecci.2c09 eco east 

Bec i-c Hr PRN 10) 022s ecn detOC feel Cis 

eo 2-3 He PRN Ine OFC | | 220n Olean 

peer 3-4 He PRN 12) O600 mca) eve Jo ee uet 

132 OBcoa | 23) 0 12 Hr | Sd ieae tebe 

cmon Cal} 1%) 1000 ere ee 25 )0x 6 

6) 15) 1200 | 26) TID | 

2) HS 16) 1400 tees) Ae eo) deer 

Bex | 273 1600 wn 2g) 22 37 Joxale 

Sa todoy @ | 1B) 1800 ieees e208 Hc — 2o0eeat He 
ase ee Seeece epi. gee ES 

4c) Help Ww) Retvte. cS Calline Screen 





Current user: 
Select one mumper (CO]l-41) @#2=> ee 





Figure Ae 1b 


Selection e from the Doctor’s Order Menu (Figure 

-22 Provices possible diet crtions for the seiected 

n Dees onsge (One Leemovemene PCeGcram to Figure 

BD €Select Time/’Frequence Cotion). Seleseton 17 
Mees: fces the number cf bags per ¢e% hours For continuous 
meee [eedings. Selection 18 recuires a frequency For oslus 
tube feedings. 


ae 1 


4 ef 
I> ( +? 
Prey 


UW 


Selection 3 from the Doctor’s Order Menu (Figure 
4*.1.1.1]3 provides possible intravenous/blood options. The 
screen design varies from other medical treatment order 
screens, to accommodate for the unique choracteristics of 
this order line. Select IU Order (Figure 4.1.1.1e) is the 
First screen of a series of three. Select IV Order has up 
to 10 selections. Selections & through 8 ore one time 
Orders which then returns to the program for another 
selection. Selection 1 through S moves the program to 
weeect IV Solution €Figure 4.1.1.1£2. This requires a 
Sewection From options 1 through &. The program moves to 
Sevect infusion Rote (Figure +.1.1.1g) for the user to 
select the desired fluid infusion rate. Following the 
eeeeclon Of infustom rote, the program returns to Select 
Memerder €Figure 4.1.1.1e). 


Selection 4% from the Doctor’s Order Menu (Figure 
feet. 1) Gisploys laboratory test options. For each 
Semeccion on the Select Laboratory Test (Figure 4%.1.1.1hn), 
the program moves to the Select Time/Frequency Option 


a 


(Figure 4.1.1.1b). Selections are for cada rene 
information regarding the order. 


Selection S From the Doctor’s Order Menu CFigure 
4.1.1.1) provides possible monitoring options. For some 
selections on the Select Monitoring Requirements screen 
(Figure 4.1.1.1iJ), the program moves to the Selecr 
Time/Frequency Option (Figure %.1.1.ib) for cadicve: 
information. The selections requiring time or frequency 
information include 3, 5, 6&6, 7, &, 3, 11, le, te -seneee 
Other selections are continuous. 


Selection 6 From the Doctor’s Order Menu CFigure 
4.1.1.1) provides pharmacy options. For all selections on 
the Select Desired MNedication / Dosage screens (Figure 
4.1.1.1) and Figure t.1.1.1kj, the program moves Eouere 
Select Time/Frequency Option (Figure tvi. 1. tsJetes 
Frequency of dosage. Each screen contains divisions of 
major drug categories, of individual drugs, and dosage. A 
help Facility Follows (Figure %.1.1.113) clerifing coe 
abbreviations used on the screen. 


Selection 7 From the Doctor’s Order Menu (CFigure 
%*.1.1.1) provides radiology options. For all selections on 
the Select Xray screen (Figure 4.1.1.1m), the program moves 


to the Select Time/Frequency Option (Figure 4.1.1.1b5) for 
additional scheduling information. 


Selection 8 from the Doctor’s Order Menu (Figure 
4.1.1.1) provides possible respiratory therapy options. 
For each selection on the Select Respiratory Therapy 
Options screen (Figure 4.1.1.1in), except 7 (Ventilator is 
continuous), the program moves to the Select Time/Frequency 
Option (Figure 4.1.1.15b). After selecting a reute Coepiaen 
9 through 13), a Flow rate Cletter A-EJ selection Follows. 


Selection 9G from the Doctor’s Order Menu CFigure 
4.1.1.1) provides possible vital signs options. For some 
selections on the Select Vital Sign Option screen CFigure 
4.1.1.10)3), the program moves to the Select Time/Frequency 
Option CFigure %4.1.1.15). Time/Frequency Option screen 
provides selections for additional information with options 
1 and S&S through 11. Departmental policy defines select_ons 
e througmet. 


Selection 10 From the Doctor’s Order Menu (Figure 
4.1.1.13 provides ward routine selection. For many 
selections on the Select Ward Routine screen CFigure 
4*.1.1.1i1p), the program moves to the Select Time/Frequency 
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Parone ntguGeet...1.tbIefor added information. selections 
advancing the program to the Time/Frequency screen are: 3, 
moe. 15, ec0-e5, 28 and eS. Selections regarded as one 
meme Only orders ore: 2, S&S, 7, le-1i4 and e4¢-27. All other 
selections are ongoing until discontinued Cselection 1, 
9-11, 15 and 17-19). In the context of this software 
project, option 4% CComplex Orsg Change) is a dressing 
change requiring 30 minutes or more to complete. A 
dressing change requiring less time is a simple dressing 
change Coption 20). 


IV. Nursing Personnel 


Figure e (Prototype Master Screen) has two valid choices 
For nurses, O CSign-OFFIJ and 3 CNursing Master). Option O 
returns the nurse to the introductory screen CFigure 1). 
Option O implies intent to leave the computer session. 


Patient Selection 


selection 3 CNursing Master) advances the nurse to 
Figure S (CNurse’s Station Selection). The nurse selects 
the desired ward or returns to the previous screen (Figure 
e). 


Selection 1 C€Figure 5) follows with Figure S.1la (Patient 
Selection for Ward @E). Patients assigned to Word 2@E by 
the admission’s department appear in their room and bed 
assignments. 


ie 


ce a 


°° Nurse's Station Selection *© Date Time 


eee Select Nursing Unit to Display Potients eee 


—_— eee ee SS ey cS 


1) @E Surgice! werd 


6-0 mere meee 


CC) 3E Medico! word 


Oo) Sign-0F & 3) Master Screen 
a 


Currant user } 
| Select one number (0-3) =—"==]> 2 
i 


a a a 


” 


Figure 5S 





®® Pstiant Salection °° word eh Surgica. Osate Time | 


eee “Sse (ec2 -s-larc;  e-* 


Pace e PETE 
Soa A 
Soe) 2S 
3] 2e¢ A 
“3 2 2B 
S24 
603-8 
OJ S16n-CGF 7) Master Screan 





t 


Currant User: 
Select one number (0-7) #22] 





F1iguce?.3s..a 


Choosing any one of the six patients advances the user to 
Figure S.1.1, the Nursing Master Screen. Ward, room, bed, 
patient and registration number appear on the second line 
Of each of the screens to assure proper patient 
identification. The identical sequence follows for 
selection 2, Patient Selection for Ward SE Chigure =S eee oe 
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Master Screen is an option on some screens and differs 
[eamalu from the Sigm-OfFF option. Sign-OfF is the 
maeeonriate Sselectiom if the computer session 1S over, 
Master Screen allows the user to select a different patient 
to enter a care plon on without requiring the nurse to redo 
the user identification process. 


Nursing’s Category Options 


Figure 5.1.1 CNursing Master Screen) is a branching 
screen. 


word Room bed Patient kes ® Date Time 


SSNS NS MA ee Cee Eee 





> 


32 Enter/inactivate Nursing Core Plan ! Si Review Potient Core Kequirements 
' 
i 
i 
2) Review Nursing Core Plan ' 6) Print Patient Care Requirements 
eee = NUSSIicSs core P:ic- % PQceGmoemaeet enc Sines. 6 (Cee t os 


Pee xtermo. Patient ciassif:cetion 





Current user. 
Seiet: one numper (0-8) *""=]=) e 


—— 





SYqure >. 1..1 


selection 1 advances the program to Figure S.1.1.1 (Select 
The Desired Nursing Care Plon Function). This option 
Gllows the nurse to enter or inactivate a potient’s care 
pon. 


Selection e and 3, on the Nursing Master Screen vary 


Only in the location of their output. Selection 2@ displays 
Peeemursing core plon on the screen. Figure S.1.1.e@, isa 
screen output for Review Nursing Care Plan. Selection 3 


provides the same nursing core plan information on the 
Printer. Selection % CExternal Patient Classification) 
meau@ices the nurse to leave this portion of the prototype 
project (see Expert System Supplement). 
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selection S, of the Nursing Moster Screen woee 
S.1.11], Review Patient Core Requirements, isouaucece 


active orders on the patient. Patient Care Requirements 
are the total active medical and nursing care orders for a 
particular potient. Figure 5.1.1.3 1S @ SC€reen cut oueee ee 


Review Patient Care Requirements. 





Press -- Ctrl and S -~ Keys To Pouse The Scrolling If Necessary 
Page No. 2 
61712786 
Date Time Order Frequency Proctitioner 


' 
Oi711/86 10:08:20 Teeem Alt Coping Strategies G. Hermeyer RN | 
01/11/86 12:08:07 Assist Bed To wneelchair to N. Lyons MO 
01/21/86 13:10:15 Self/Minimum Ccre G. Harmeyer RN 
01/11/86 13:10:53 Keep Commode @ Bedside TID G. Harmeyer RN 
01/11/66 14:13:47 Up in Enoir guy Ass #sc Le N. Lyons MO 
O1/711765 14:14:22 Siebecic sips N. Lyons MO 
J1712/66 10-17-22 4-2loc ice Deity © 0600) 7. eka 
G2 712/65 19-27 :340 Sociam 1. Buln 
01/12/66 10:18:00 Amylase so. Bure 
Oi/71e/685 10:18:25 Potassium Deilyu @ OS00 1. Bu2eao 
O17 12785. 10-73-55) c0e Darig © O600 7. Bina 
Cl/i2/766 20:28 -e5, eg Deiiy © OS00 7.) Suis 
Oi712/66- 10. (S252 Fla cs Deily @ O600 T. Bui AD 
Cr/ 22/85 .0 22412 Sivcase Daiity @ O8C0 1. Buzeme 
Of 4278S 540) 22102 srcake 6) eeesc= Pee Tt. Bute 


selection & provides the same information on the srratere 
selection 7 Cinterneal Petient Classification) Same 

the patient classification level and point value -- 
Figure S.J41.85 (Appendix F2 
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Patient: Mary Miser 
Is In: Category II 


Point Volue Is: e7 
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mrgure S.lsie6 


Nursing Diagnesis 


S2tic ne Nursing Master Screen, advences 


Pee oe leceeune Desi:rec Nursing 
HuUcseumes CWE majors snoices: sele 


mateo Neto waoce Flan and selection 2 -- Inoctivate 


e 


(t ¢f 
t+ O vw 


74) 2) 
wD +e 


10 


UW 


* 
+ 


s Ree eer ee 


ae 


ae 
eo oe 
The 


() ©) ct 


BaiceO ©GGe flans. Selection i advances the program 


mauce S.ii.ia (Select Nursing Diagnosis). 


33 


ward Room Bed Potient Reg * Date Time 


eee SELECT NURSING DIAGNCSIS eee 


13 Comfor=, Alter otron 19:7 Fern 

2) Communication, Impaired: Veroal 
33 Impeiced Physica hocwiicy 

4) Self-Care Detrere 


0} Sign-OFF S) nurse's Moster Screen 6) mastec Screen 





Current user. | 
Selectz one number (0-8) ="*"*=> »s 


Figuce S.1) 22 e 


OF the S2 nursing diagnoses csoroved through tne Stmeane 
sth Netzi:onei Conferences of the Nerth American Neacene 
PrCgnaSis ASSOSIStTiION c TeRresenise:ve [Sus Weseee oso 


Porient Assessment 


Following the selection of one cf& the diagnoses, ne Teese 
aqdvances to one of the four assessment screens (Figure 
Solel... Sebeleik, Ss... 1 1G See 





Ward Room Bed Potient Reg * Dats Time 


ee SELECT NURSING ASSESSMENTS FOR A PATIENT WITH == 
*®* NURSING DIAGNOSIS OF COPFORT ALTERATION IN: PAIN @@ 


1) Altered Time 7) Guarding Benavicr 12] Self-Focusing 
Perception 
8) Impoired Thought 13) Talkstive 

2) Alterotion Muscle Tone Process 

14%) Verbal Camplaint 
3) Autonomic Resnonse 3) Norrowing Focus 

15) Vocal Comolaoints 
4) Distraction Behavior 10) Pocing CMoans, Crying) 
S) Facial Mask | 11) Patient Repvort 16) Withdrawal From 

SOeCto we comcoce 

6) Otner Assessment: C------- eee ee ee ee ee eee eee i) | 





Current User: 
| Select one numper (01-15) ===> 





Pi guicers:, 1 ol aes 


@esessments, reloted Factors, goals and nursing orders 

fees Gre not an inclusive list, but rather generic options 
tO builc on. Any cssessment, related factor, goa! or craecr 
Memos CHONQZeS to Detter refieczs the individuai nature of 
meen NCSCital setting. ic select any number less than 10. 
Meee lemer OS cr 3 <entes> to advance the program. 


Reloted Factcrs and Patient Gools 


Following the assessment selection, the program moves to 
the related factor associated with the diagnosis (Figure 
Suemmeere, >-1.1.11, S.1.1.ir, S.1.1.1z). The patient goal 
feeeee™ fFOllows (Figure S.1.1.id, S.1.1.1m, S.1.1.1s, 
seer! .icqa). 


Ward Room Bad Petivent Reg * Date Time 


bf SELECT A RELATED FACTOR FOR A PATIENT WITH == 
®e NURSING DIAGNOSIS OF COMFORT ALTERATION IN: PAIN @® 


13 Altered Sensation S} Surgical Procedure 
2) ODissase / Condition 6) Trauma 

3) Emotional State 7) (Treatment Regime 
4%) Otner: C---- eee cere eee eee ee eee eee J} 





Current user: 
Select one number (1-7) 2#2#2=> 





Figure 5S. 1 ae 





word Room Bec Pecan Res * Date Time 
=< STLETT Am PATIENT GOAL FOR A PATIENT WITe eo 
ee NURSING CIAGNCS!IS C® COmMPFCRE. BCL EPA. ON IN = =o ae 





J Communicates Pain Free 
C} Communicates Experiences Lass Poin 
3) Communicates Experience of Poin More Tolerable 


4) Demos Skills & Knowledges to Achlave Pt Goals 


S) Other Goals: [C--+- eee eee eee eee ee eee eee ee ee eee ee ee eee 5 





— 


Current user. 
Select one number (1-S) e#e=> 





Figure se. @ 
Nursing Orders 


The patient goal selected, triggers tne appsep.tae. 
patient order screen. If patient diagnosis selection 18 
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memeort alteration in: pain, 
Smee S.1.1.1d is 1, ec, 3, 

mo, obtain additional 
Seoers, 


SGao: 
iiecumeacloOm Om Seme of the nursing 
the program may advance the nurse to Select Time / 


and the goal selected from 
Faigure 5.11.6 dppecrs. 


@eeauency Option €Figure S.1.1.1g) with its help Facility 


Merguce 5.1.1.1n); 


illicit the tyupe of teaching necessary; 


Gecedannncmmeacule €Figure S.1.1.11)3 to 


or an emotional 


Support screen to determine the tyoe of emotional support 


meauired (Figure S.1.1.13). 


Uren ene selection of goal 4, 


mee program displays Figure (5.1.1.1F). 


Word Room Bad Patient 


a SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS 
EX Per eENG@S LESs/7/TGLERASLE PAIN OR GTHER GOAL ©* 


SeeCOMMUNICATES: PAIN FREE, 


13) Assess Poin Factors 


> Assess & Evaluate Pain 


Seeeencour Pt ta Use Coping Strategy 


4] Give Irfo & Explein Proc & Tests 2) 


w 
au 


Zome2 Norsins Orders: 


= 
eta TN 


; 
: Select 


of ef © 8 ee ee ee BR we ewe Fe Fe eC Fe ww He eC wo Pe Fe © FT © © 


Reg *# Dots Time 


6] Offer PRN Madicotions 
7o))FGovide Emotional Support 
8) Scnedulese "Quiet Times” 
Teach Alt Coping Stratecies 


Activities 


O} Tani. fie. te 
feedlot easeas pak 


O:versiona. 


Sne number (01-10) 2#"=> 





EPLGgure on... le 


87 





Ward Room Bad Patient Reg # Date Time 


ee SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL I Se== 
ee DEMONSTRATES SKILLS & KNOWLEDGE TO ACHIEVE GOALS #8 





©® Tecch Stress Reduction Techniques 
1] ODeep Breothing 
C} Progressive Relaxation 
3] Reloxction Response 
4) Diversional Activity 


S} Other: C----------- eee eee eee ee eee 3 





Current User: 


Select one number (1-5) "=**=) 





4 POG Coes) eaten 


EGSH Of  GheseouaanuUrsi ra Soe Follows the same 
sequence: assessment, related ec len, geal sondage. sae 
order with generic type responses. The only variation lies 


im the goai ssstionm sf the Self-Gate Beira: 2 d2egnooms 
CPIC@eCe S jose weer. ~evels C through 4 ace sels sence 

‘eve as definec in COMPUTERIZED NURSING GARE 2eart ane 
UTIC.2INnG NURSING DIAGNOSIS ance referenced in the moines 
cf tne thesis. Current leve. ef care Tesi: red 22.2.5 
asked For. Current level sf S2are entess wace 

the potient classification determination. 


A caveat exists regarding the use of the "other order” 


option provided by each of the nursing order screens. iia 
nursing orders ore directly limkeG te Ehe sAmeceare 
processing of the potient classification system. The use 


of the "other order” may give a more accurate order, but 
Will mot enter points into the potient s classificaegwen 
level. If orders are identified that need to be added, and 
offect the potient classification, they sheumawae 
incorporated into the program, rather then Ddelng tupeawane 


Inactivate Portion Gf yeare, - on 


In addition to selection 1 on the Select Desired Nursing 
Care Plan Function screen (Figure S.1.1.13, the musseucan 
choose to inactivate a portion of the cases eae 
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a 


Selecting Option <¢. Figure S.1.1.lag displays nursing care 
mem information for review and »snactawationvaseneedecd. 


U. System Administration Personnel 


Access level O or 2 will allow the user access to the 
Sustem Administration section of the program. The target 
user group for this section is the department responsible 
For 1ssuing access levels and recording user’s information. 
Figure 6.1 provides the format used to enter user’s 


maEOrmation. 





Tose een Ano / DSLETS AvUSER eee 





a 


+ 


Add A User 


= 


“A 


a Delete - user 


() 
Le 


S ‘ 


= 
Soma Of 


Current user: 
Selec ope mumber (O=-2) “==> se 


Figure 6 
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USER INFORMATION 
eee THIS INFORMATION IS CONFIDENTIAL eee 


a  D 


First Initial: : ' 
Middle Initial: 
Last Name: 


Category of 
Requestor: 


Password: 


Access Level. 


a 


ad 


FPiguce G21 


The User Informcotion screen consists of & input areas. 
After inputting the information, press enter to move comer 


next category. Ine OmaguUnMEe Sl Yntosmes es, once 
SSSeEDICc IS LepUTs Cr Ss ase. e. Suse 

Sirs. 1hieve Allows oniy one choeracter {cf be engews 
ed, SUCOMS LLCS! lO 22s) 222 
places a period after the le=ttezssaae 
acvances the user tc the next fielee 

MYO Veh aie ee Porameters are identical to First 
Liao) Gla 

Last Name: Allows entry of up to eO letters, 
capitalizes the first letter and 
advances the user to the next field. 

EPGtCedOcU tor A three letter field for a coded 
category. 

Requestor: Could include rate, rank or educatrege 
ql background. Used for user Infoge 
mation only and 1s not otherwise 
incorporated intG@ the ssegsec. 

Password: A S letter or number code selected DBDy 
the user to log into the system. 

Access Level: Authorizes a person to enter different 


sections of the software project. 

Five levels of access are available: 

O Unlimited access to all sections of 
the software project. 

1 Restricted to the admission’s sec- 
tion of the softwore project. : 
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eC Restricted to the data base section 
of the software project. 

3 Restricted to the doctor section of 
the software project. 

4% Restricted to the nursing section 
oF the software project. 


Expert System Supplement 


There are two ways For the nurse to obtain a patient 
Classification, externally or internally CSselection 4% and 7 
respectively on Figure 5.1.1 -- Nurse’s Master Screen). 
Selection 4 loads a qualifier and value number for each 
Bectient order that corresponds te a critical indicator. 
This is the expert system information to calculate the 
patient classification level. 


To calculate the external patient classification system 
choose se@lection 4, Figure S.1.1. A manufacturer’s 
Sign-offF message appears at the bottom of the screen 
indicating that you are leaving dBase III. Remove disk A:e 
ond insert disk A:3. Type b:expert <enter>. The expert 
program loads into memory the necessary information to 
calculate the patient classification. fhe program asks 
some preliminary questions Cthree) which require no response 
except <enter>. The expert system program gives the 
user an opportunity to see the rules used to arrive at the 
Classification level. 


Selection 7 of Figure 5.1.1 works ina similar manner to 
selection +, without leaving the main program. Selection 7 
provides a much quicker patient classification level, but 
is not able to provide the user with the information on how 
Che classification was derived. 


During the programming phase of this project, medical 
orders that corresponded to critical indicators were tied 
to their corresponding medical order, ie. vital signs QD 
receives a patient point volue of 1, apnea monitor receives 
gq monitor point value of 6&6. The reason vital signs has a 
patient point value and apnea monitor has a monitor point 
volue is becouse the vital sign’s critical indicator 
meraces Girectly to critical indicator points. This is not 
true of an order For an apnea, cardiac or pressure monitor. 
In the latter case the patient point total would remain at 


6 even if three monitors were ordered. Where point totals 
ogre not additive or do not directly translate to patient 
points —-- the cardiac, apnea, temp and pressure monitors; 
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S&@A, SpGr, Guioc and spin HCT; and emotional support -- 
special point totals ore calculated prior to their 
translation to a patiene pelineyeocelc. 


Listed in Appendix F are qualifiers and their values 


used to derive the expert system’s rules. Through the use 
of 38e rules, the patient classification level is derived. 


G2 


APPENDIX D 
PATIENT CLASSIFICATION CRITICAL INDICATORS 


VITAL SIGNS (MANYAL TPG, BP) 


(1) Vital sigas Q50 or less: {2} Rectai or axillary temeos cr apical poise O10 or mare 

(2) Vitad sigts q4¢h or x 6 (2) Femoral or pedal guises or FHT gdh or more 

(4) Vital signs q2h or x 12 (2) Tilt tests q4h ar mare 

(8) Vital signa qth or x 24 (6) Pest-op, post-partum or post-newbora 
MONESINS 

(27) tetake aad output q8b or x 3 (6) Cardisciagnestempipressore manitory uct additive) 

{8} Intake awd cetput q2b or x 12 ; (6) Tremscutaneows monitor ¢ 

(2) Cireniatice or fundes checks q2h or x 12 (8) Adioe or ICP (mamtoe) or Swan Ganz sst-up 

i3) Meura checks q4h or z § (2) Axia or ICP (moastor readiag g2h of x 12 

(6) Neuro checks q2h of x 12 (2) PAPIPA wedge reading gdh or x 6 

(2) CVP or ICP (mamuad) q2h or x 12 : 6} PAP/PA wedge readieg gZh er x 12 


(2) Cardiac output TID or 2 3 
ACTIVITIES OF DAILY LIVING 


(6) lefasuteddler czre ( <5 years) (da) Totai care (> 5 years) - position and skia care qZh 


(2} Selfirunimal care (aduit or child >§ years} (4) Extra lieee change and partial bath 2x per shift 

(5) Assisted care ( > § years) - positions saif (14) Turning frame (2 staff ta turn q2h) 

(14) Campiece care (> 5 years) acarst with positiusiag (8) Peds recreatiomobservation - 0-12 yrs lexciude ABN) 
FEEDING 

(2) Tube feediag {esatiaucus} - per bag change (2) tetastineoname bette 2 1 feediag 

(5) Tube feed (holes) adaitichiid/neensts q4h or x 6 (12) tnfantineonate bottle q4h or x & 

(6)  Aduit meais > § years (spoon feed x 3) (24) Istaatinsomste bottle qZh or x 12 


(10) Child meals s § years (spooe feed x 3) 


° TREATMENTS /PROCEDURES MEDICATIONS 
Simaie 215 and < 30 Minutes Total Comaisx > J0 minutes and <1 Hour Total 


(2) Start 1¥ of NG inservoa or Foley insertica or EXG (4) Chest tune insercom oc lumnar puncture 

(2)  Sargreal prep or enemas or aca wragwelastc stockiags (4) Thorecantesis of parscantesis 

(2) Simple drexzing x 2. or tube care x 2 (exclude trachl, Foley (4) Complex dressiog change | > 30 minates to compiets) 
cary x 2 (4) Straight catheterrratioa x 4 of more 

(2 S&A o SoGr or Guise or spin HCT x & (4) Medicatiess q2h of mere (exciude (V) | > 12 trios) 

(2 Lab studies x G: ASG stick o¢ blood culture x 3 (4) Raage cf motion exercises x 3 

(2) Medicacoes qjb - q8h lexciude [V) -( up to 12 trips (4) Accompany pstiewt otf ward > 30 mnstes 

(2) Irngatieas or insdilations x 4 of lexz (4) Other activities requiring » 30 minutes and-< } hour 

(2) Restraists (2 of 4 point or pozsy} (4) Traaster In-house) - sszexs & orient 

(2) Assist ta chair or stretcher aad return x 3 "(12 New admrexion - czzexs & criaat 

(2) Asstt to walk and retora x 1 -< 

(2) Ietaat circumetsion or phototherapy ; = “ 

(2)° Isciatioa (gown & gicwe x 8) a nee ee ee tatt attendance 

(2) Accompaay patient ctf werd > )5 miautes & < 30 minatas Sala: eee ee : 


(2) Other activities requiring > 15 minutes & « 30 minctes 
. RESPIRATORY THERAPY 


(2) Oxygee therapy or oxyhood (2) Chest pulmonary theragy 810 or x 2 
(2) incentive spirameter or C2Z08 gdh (4) Chest pulmonary therapy qGéh or x 4 
2} JPPS or maximest B10 or 2 2 (6) Chest palmanary therapy qdh or x § 
(4) IPPS or maximist qGh or x 4 (2) Suctioning q4h or x § 
{6} (PPB or maximist gdh or zr G (4) Sucnaning g2h or x 12 
8} Croup tent or mist tant (4) Tracheastomy care x 3 
(10) Vanulator 

F Iv THERAPY 
4) «KVQ {change bortle BID of lessi (2) Medication q8h or x 3 
14) Heparin lock ar Broviac (3) Medicatian qéh of x 4 
(8) Simpts ichanga barda TID of O10) (4) Medicatua gdh or x 8 
(8) Comoiex (two or mare sites or change bora qdh or (2) Blood products (each uniti 


maltlumea linal 


TEACHING AND EMOTIONAL SUPPORT 
(Must be documented) 


Teschting movonal Support fin excess af 30 minutes q 24 haurs.) 
(2) Group teaching (4) Pagenufamnuy sugpart tie. anxiery, denial, loneuness, etc.! 
4) Preoperative teaching (4) Modéficanon lifestyia (Le. new prosthesis. bady image. 
(4) Structured teaching (ia diabetic. cardiac. colostomy care. behavicr madificanan, ste.) 

post partum first 24 hrs, newbarn care, dischargai (6) Sensary deprivation (is. retarded, deat, blind, lanquage 


barner, bilateral eye patches, canfused. combative, etc) 
(10) Maximam paiots for ematianal suppart 
CONTINUOUS 
(36) Patant requiring 1:1 coverage ail shitts (i.e. peroneal aiatysis. comoativa. ete.) 


(146) Patent requiring greater thaa 1:1 coverage ail shitts (Le venolator with maitale vascoressars, IABP, atc.) 


Dec 1984 
; -THE NAVY MEDICAL DEPARTMENT'S WORKLOAD MANAGEMENT 
pIoTEM FOR NURSING, May, 1935, P. 


= 


QUALIFIERS 
Vitel SsignsseGdcre or 
QID or less 
Bah Choe 
Gen Cli. eo 
Gin 1On 4 en 
Not ordered 
Used in rules: 1-5 
Rectal et Gxi lane cena Voseeceats. 
Rectal temps less than QID 
Axillary temps less than Q@ID 
Rectal temps QID or more 


Axillary temps QID or more 
Not ordered 


ised in rules: 6-10 

Patient order for apical pulse is: 
Apical pulse less than QID 

Apical pulse QID or more 

Not ordered 

Used in rules: 11-13 

Patient order for femoral pulse is: 
Femoral pulses are less than q'‘th 
Femoral pulses gq'tth or more 

Not ordered 

Used in rules: 14-16 

Patient order for pedal pulse is: 
Pedal pulses less than qth 

Pedal pulses qth or more 


Not ordered 


Used in rules: 17-19 
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5. 


10. 


Patient order for FHT is: 


FHT less than qth 
FHT qtth or more 
Not ordered 


Used in rules: CO-ec 
Patient order for tilt test is: 


Tilt test less than qth 
Tilt test q'tth or more 
Not ordered 


Used in rules: 23-25 


Patient order for postop/post partum/post-newborn vital 
Signs is: 


Post op vital signs 
Post-partum vital signs 
Post-newborn vital signs 
Not ordered 


Used in rules: e6-29 
Patient order for intake & output is: 


Intake & 
Intake & 

Cx6) 
Intake & output qth or x 6 
Intake & output qeh or x ie 
Intake & output qih or x e4 
Not ordered 


output less than qB8h or x 3 
output at least q8h Cx 3) But less than qth 


Used in rules: 30-35 

Patient order for circulation checks is: 
Circulation checks less than qeh or x 12 
Circulation checks qeh or x ile 
Circulation checks qih or x e4 

Not ordered 


Used in rules: 36-39 
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11. Patient orders for neuro checks is: 


Neuro checks less than qth or x 6 
Neuro checks qtth or x & 
Neuro checks qeh or x ie 
Neuro checks qih or x e4 
Not ordered 
Used in rules: 40-4 
le. Patient order for CVP manual readings is: 


CUP manual readings less than qeh ar x 1e 
CUP manual readings qeh or x ie 

CUP manual readings qlh or x e4 

Not ordered 


Used in rules: 45-48 

13. Patient order for ICP manual readings is: 
ICP manual readings less than qeh or x ie 
ICP manual readings qeh or x 1ée 
ICP manual readings qih or x e4 
Not ordered 
Used in rules: 493-Se 

1%. Patient order for fundus checks is 
Fundus checks less than qeh or x 12 
Fundus checks qeh or x ie 
Fundus checks qih or x e4 
Not ordered 
Used in rules: S3-56 


15. Patient order for transcutaneous monitor is: 


Transcutaneous monitor 
Not ordered 


Used in rules: 57, S& 
16. Patient order for an A-line set-up is 


A-line set-up 
Not ordered 


Used in rules: S93, 60 
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17. Patient order for an ICP monitor set-up is: 


ICP monitor set-up 


Not ordered 


Used in rules: 61, 62 


18. Patient order for Swan-Gantz set-up is: 


Swan Ganz set-up 


Not ordered 


Used in rules: 63, 8&4 


19. Patient order for A-line reading is: 


A-line reading less than qeh or x ile 
A-line reading qeh or x le 
A-line reading qih or x e4 


Not ordered 


Used in rules: 65-68 


CO. Patient order for ICP monitor reading is: 


ICP monitor reading less than qeh or x le 


ICP monitor 


reading qen or x ile 


ICP monitor reading qlih or x et 


Not ordered 


Used in rules: 693-72 


21. Patient order for PAP/PA wedge reading is: 


PAP/PA wedge 
PAP/PA wedge 
PAP/PA wedge 
PAP/PA wedge 
Not ordered 


reading of less than qtth or x 6 
reading qth or x & 

reading qeh or x ie 

reading qlh or x e4 


Used in rules: 73-77 


ee. Patient order for cardiac output is: 


Cardiac output less than TID or x 3 
Cardiac output less than TID Cx 3) but less than qth 


Cx 63 


Cardiac output qth or x & 
Cardiac output qeh or x ie 


eG 


es. 


et: 


eis 


eb. 


ev: 


Cardiaqe Gutsut agihvorweca 
Not ordered 


Used in rules: 78-83 
Patient order for ADL is: 


Infant/toddler care € =< S years) 

Self/minimal care Cadult or child > S years) 
Assisted care (> S years) positions self 

Complete care (> S years) assist with positioning 
Total care (> S years) position and skin care qeh 


Used in rules: 84-88 


Patient order for extra linen change and partial bath 
is: 


Extra linen change and partial bath less than ex per 
shift 

Extra linen change and partial bath ex per shift Cor &x 
per day) 

Extra linen change and partial bath 4x per shift Cor 1ex 
per daoyJ 

Extra linen change and partial bath 8x per shift Cor 24x 
per day) 

Not ordered 


Used in rules: 89-93 

Patient order for turning Frame is: 
Turning Frame less than qeh 

Turning frame qeh or x ile 

Tucning frame qih or x e4 

Not ordered 

Used in rules: 934-97 


Patient order for peds recreation/observation is: 


Peds recreation/observation - O-1le yrs Cexc NBNJ 
Not ordered 


Used in rules: 98, 39 
Patient order For tube feedings is: 


Tube fFeedings continuous -- less than 1 bag per e4 hours 
Tube Feedings continuous -- 1 bag per 24 hours 


98 


2. 


eo. 


0), 


a2. 


Be. 


Tube Feedings continuous -—- e@ bag per eY hours 

Tube feedings continuous -- 3 bag per ect hours 

Tube feedings continuous -- 4% bag per et hours 

Tube feedings continuous -- 6 bag per e4 hours 

Tube Feedings continuous -- 1e bag per e4 hours 
Tube Feedings continuous -- e4% bag per e4% hours 
Tube Feedings Cbolus) less than qtth or x 6 

Tube feedings Cbolus) qth or x 6 

Tube feedings Cbolus) qeh or x le 

Tube feedings CbolusJ qih or x et 


Not ordered 


Used in rules: 


Patient order 


LOGS Ere 


For spoon Feeding is: 


Adult meals > S Cspoon feed x 3) 


Child meals *®< 
Not ordered 


Used in rules: 
Patient order 
Infant/neonate 
Infant/neonate 
Infant/neonate 
Not ordered 

Used in rules: 


Patient order 


IV insertion 
Not ordered 


Used in rules: 
Patient order 


NG insertion 
Not ordered 


Used in rules: 


Patient order 


1zation is: 


S years Cspoon feed x 3) 


Sa-115 

For infant/neonate bottled feeding is: 
bottle x 1 feeding 

bottle q'tth or x 6 

Hoteles gen or .x 12 

116-1139 


For IV insertion is: 


feo, lel 


For NG insertion is: 


leeeewie3 


for Foley insertion / straight catheter- 


Foley insertion 
Straight catheterization of less than 4 


a7 


= 


on. 


5 


36. 


a7 


Straight catheterization of 4% or more 
Not ordered 


Used in rules: 1e4-127 


Patient order for EKG strip is: 


EKG rhythm strip 
Not ordered 


Used in rules: 128, 1e9 


Patient order for surgical prep is: 


Surgical prep 
Not ordered 


Used in rules: 130, 131 


Patient order for enemas is: 


Enemas 


Not ordered 


Used in rules: 132, 133 


Patient order for ace wrap/elastic stockings is: 


Ace wrap 
Elastic stockings 
Not ordered 


Used in rules: 134-136 


Patient order for dressings change is: 


Simple 
Simple 
Simple 
Simple 
Simple 
Simple 
Simple 


Complex 
Complex 
Complex 
Complex 
Complex 
Complex 


dressing change less than x e@ or BID 
dressing change x e@ or BID 
dressing change x 3 or TID 
dressing change x 4 or QID 
dressing change x 6 or qth 
dressing change x 1e or qeh 
dressing change x e4 or qlih 


dressing change x 1 or QD 

dressing change x e or BID 
dressing change x 3 or TID 
dressing change x 4% or QID 
dressing change x 6 or qth 
dressing change x 1e or qeh 


100 


38. 


So. 


Ole 


2 


Complex dressing change x ett or qlh 
Not ordered 


Used in rules: 137-151 


Patient order for tube core Cexcluding trach) is: 


Tube 
Tube 
Tube 
Tube 
Tube 
Tube 
Tube 


care 
care 
care 
care 
care 
care 
care 


ess than x e or BID 
ae oc Bia 

3 or TID 

OT Gib 

6 or q'th 

xele Of Gen 

Xo 6G Ln 


l 
x 
x 
x 
x 


Not ordered 


Used in rules: 152-159 


Patient order for Foley care is: 
Foley care less than x 2 or BID 
Foley core x e@ or BID 
Foley care x 3 or TID 
Foley care x 4% or QID 
Foley care x 6 or qth 
Foley care x ie or q@eh 
Foley care x ett or qih 


Not ordered 


Used in rules: 160-167 


Patient order for S & S is: 
S&Ax 1 or QD 

S &Ax e or BID 

S &Ax 3 or TID 

S& Ax 4 or QID 

eee A xX & or qth 

S & Ax 1e or qeh 

eee A x e4¢ ar alh 

Not ordered 


Used in rules: 168-175 


Patient order for SpGr is: 


QD 

BID 
TID 
QID 


SpGr 
spGr 
SpGr 
SpGr 


Or 
or 
or 
or 


x *K x xX 
ew MR 


iOat 


Bf 


23). 


b> in 2 


23. 


SpGc < 7G Oseqln 
SspGc x leon cen 
Sp6C xX e47on 70) 
Not ordered 


Used in rules: 


Patient order 


Guiac 
Guiac 
Guiac 
Guiac 
Guiac 
Guiac 
Guiac 
Not o 


stools 
stools 
stools 
stools 
stools 
stools 
stools 
rdered 


x 
x 
x 
x 
x 
x 
x 


Used in rules: 


Pati 


Spin 
Spin 
Spin 
Spin 
Spin 
Spin 
Spin 
Not o 


176- tes 
for Guiac is: 


or QD 
or BID 
or TID 
or QID 
OG Gul 
le,Or gen 
e+ Gran 


OF WMe 


Lets i1on 


ent order for spin HCT is: 
HET <x ier 0D 

HET x ec on BID 

HEL yx oS -o6.-t1) 

HET x 4 oc 10 

HE? xX 6 Or Gan 

HET x te Ge.dgen 

HEL x 2% of gin 

rdered 


Used in rules: 


1322199 


Patient order for lab studies is: 


Lab studies less than x & 
Lab studies x 6 or q'th 
Lab studies x le or qeh 
Lab studies x ec4% or qih 
Not ordered 


Used in rules: 


20G=2c04 


Patient order for ABG stick is: 


ABG s 


ticks, 


ABG sticks, 
ABG sticks x & 
ABG sticks x 1e 


less than 3 
at least 3 but less than & 


OZ 


no. 


7 . 


ated. 


ao 


50) . 


ABG sticks x e4 
Not ordered 


Used in rules: 205-210 
Patient order for blood cultures is: 


Blood cultures less than x 3 

Blood cultures at least x 3 but less than x 6 
Blood cultures x 6 

Blood cultures x ie 

Blood cultures x ce4 

Not ordered 


Used in rules: 211-216 
Potient order for medications is: 


Medications less than q8h Cexcluding IV) 

Medications q3h - qB8h Cexcluding IV) - up to 1e trips 
Medications qeh or more Cexcluding IV) - > le trips 
Not ordered 


Used in rules: 217-e2c0 
Patient order for irrigations is: 


% CQIDJ or less 
6 or qth 
he, OG oem 
eam soln 


Irrigation 
Irrigation 
Irrigation 
Irrigation 
Not ordered 


x xX xX x 


Used in rules: ee1-ecS 

Patient order for instillations is: 
Instillations x 4 CQID) or less 
Instillations x 6 or qth 
Instillations x 1e or qeh 
Instillations x e4% or qih 

Not ordered 

Used in rules: 226-230 


Patient order for restraints is: 


e-point 
a—ooint 


Oe) 


Sim 


Ses 


54. 


ooh. 


Posey 
Not ordered 


Used in rules: 231-c34 
Patient order of assist to choir / stretcher is: 


Assist to choir and return less than x 3 or TID 
Assist to stretcher and return less than x 3 or TID 
Assist to stretcher at least x 3 but less than x 6 
Assist to stretcher x 6 or qth 

Assist to stretcher x le or qen 

Assist to stretcher x e4 or qin 

Assist to chair at least x 3 but less than x 6 
Assist to choir x 6 or qth 

Assist to choir x le or qen 

Assist to choir x e+ or qlih 

Ambulate with assistance 
Ambulate with assistance 
Ambulate with assistance 
Ambulate with assistance 
Ambulate with assistance 
Ambulate with assistance 
Ambulate with assistance 
Not ordered 


XxX XxX KX XK X 
Me O-FWYUeRr 


— 


Used in rules: 236-252 
Patient order for infant circumcision care is: 


Infant circumcision care 
Not ordered 


Used in rules: 253, eS4 
Patient order for phototherapy is: 


Phototherapy 
Not ordered 


Used in rules: 255, eS6 

Patient order for isolation is: 

Isolation Cchange gown and gloves < x 8) 
Isolation Cchange gown and gloves x 8 or more) 


Not ordered 


Used in rules: 257-esS9 
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SS. Patient order for accompany potient off ward is: 
Accompany patient off ward for less than 15 min 
aeecompany pecient OFF ward For 15 to 30 min 


Accompany patient off ward for greater than 30 min 
Not ordered 


Used in rules: 260-263 


eee Fotient order for other activities is: 
Other activities requiring less than 15 minutes 
Other activities requiring 15 to 30 minutes 
Sener activities requiring 30 min to 1 hr 
Special procedures > ihr < @ hr Crequiring continuous 
stafF attendance) 
Not ordered 
Used in rules: 264-268 
S57. Patient order for chest tube insertion is: 


Chest tube insertion 
Not ordered 


Used in rules: e269, 270 
See rotient order for lumber puncture is: 


Lumbar puncture 
Not ordered 


Used in rules: e271, e7e 
S39. Patient order for thoracentesis is: 


Thoracentesis 
Not ordered 


Used in rules: e73, 274 
60. Patient order for poracentesis is: 


Poracentesis 
Not ordered 


Used in rules: 275, 276 


LO 


Gar 


Gee 


BS 


Su, 


Sar 


Bor 


Patient order for Gange Gh emsesen Ss. 


Range oF motion exercises less than x 3 or TID 

Range of motion exercises at least x 3 but less than x & 
Range of motion exercises x 6 or qtth 

Range of motion exercises x le or qeh 

Range of motion exercises x et or qih 

Not ordered 


Used in rules: e77-cBe 
Patient order to transfer in-house or new admission is: 


Transfer in-house Cassess and orient) 
New admission Cassess and orient) 
Not ordered 


Used in rules: 283-285 
Patient order for Oe therapy or oxyhood is: 


Oxugen therapy 
Oxyhood 
Not ordered 


Used in rules: 286-288 
Patient order for incentive spirometer is: 


Incentive spirometer less than qth 
Incentive spirometer qth 

Incentive spirometer qeh 

Incentive spirometer qih 

Not ordered 


Used in rules: 289-293 
Patient order for C&DB is: 


DB less than qth 
DB qtth 

DB qeh 

DB qih 

ordered 


2 one 
Ct go RO go go 


Oo 
Used in rules: 294-298 
Patient order for IPPB or maximist is: 


IPPB or maximist less than BID or x @2 
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B/. 


si3)e 


6S. 


70. 


Pees or maximist BID or x e 

PEER Ge maximist TiB or x 3 

IPPB or maximist q6h, x 4% or QID 
IPPB or maximist qth, x 6 

fPB or maximist qeh, x le 

IPPB or maximist qih, x e4 


Not ordered 
Used in rules: 2939-306 
Patient order for croup tent or mist tent is: 
Croup tent 
Mist tent 
Not ordered 
Used in rules: 307-309 


Patient order for chest pulmonary therapy is: 


Chest pulmonary therapy less than BID or x e 


Chest pulmonary therapy BID or x e 
Chest pulmonary therapy TID or x 3 
Chest pulmonary therapy @ID or x 4 
Chest pulmonary therapy qth or x 6 
Chest pulmonary therapy qeh or x ie 
Chest pulmonary therapy qih or x e4 


Not ordered 
Used in rules: 310-317 
Patient order for suctioning is: 


Suctioning less than qtth or x 6 
suctioning qth or x6 
Beetioning gqeh or x ie 

mite cioning gqlh or x et 

Not ordered 


Used in rules: 318-3cee 
Patient order for trach care is: 


Trach care < x 3 or less than TID 

Trach care at least TID Cx 3) but less than qtth Cx 6) 
Meech care x 6 or qtth 

Meach care x 12 or qeh 

Trach care x 24 or qih 

Not ordered 

Used in rules: 323-3c8 


£O 7 


7 


ice. 


7A 


Cin 


7 


Patient order for Ventiloaconr 1s. 


Ventilator 
Not ordered 


Used in rules: 3e9, 330 
Patient order for hanging IV bottles is: 
KVO Cchange bottle BID or less) 
Simple Cchange bottle TID or QIDI 
Complex Cchange bottle qth or more, two or more sites, 
or multilumen tube) 
Not ordered 
Used in rules: 331-334 
Patient order for heparin lock or Broviac catheter is: 
Heparin lock 
Broviac catheter 
Not ordered 
Used in rules: 335-337 


Patient order for IV medication is: 


IV medication of less than q8h or x 3 


IV medication q8h or x 3 
IV medication q6h or x 4 
IV medication qth or x 6& 
IV medication qeh or x ile 
[U=medication qin ac x ct 


Not ordered 
Used for rules: 338-344 


Patient order for blood products is: 


Bloed  preeduces x 1 Unit 
Blood products x 2 unit 
Blood products x 3 unit 
Blood products x 4% unit 
Blood products x 6 unit 
Blood products x le unit 
Blood pregucus x.e4sUmic 


Not ordered 


Used in rules: 34%S-35e 
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76. 


77. 


ye. 


73. 


80. 


sue 


Patient order for group teaching is: 


Group teaching 
Not ordered 


Used in rules: 353, 354% 
Patient order for preoperative teaching is: 


Preoperative teaching 
Not ordered 


Used in rules: 355, 356 
Patient order for structured teaching is: 

Structured teaching Ci.e. diabetic, cardiac, colostomy 
care, post portum First e4¢ hr, newborn care, 
discharge]) 

Not ordered 

Used in rules: 357, 358 


Patient order for emotional support is: 


Patient/family support Ci.e. anxiety, denial, lonliness} 
Not ordered 


Used in rules: 359, 360 

Patient order for modification of lifestyle is: 

Emotional support for modification of lifestyle Ci.e. 
new prothesis, body imoge, behavior modification) 

Not ordered 

Used in rules: 361, 36e 

Patient order for sensory deprivation is: 

Emotional support for sensory deprivation Ci.e. 
retarded, blind, deaf, language borrier, bilateral 
eye patches, confused, combative, etc.) 


Not ordered 


Beed im cules: 363, 364 
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Se 


83. 


Gz. 


BS. 


Be 


» Patient order for cordiac monltoceis. 


Cardiac monitor 
Not ordered 


Used in rules: 365, 366 
Patient order for apnea monitor is: 


Apnea monitor 
Not ordered 


Used in rules: 367, 368 
Patient order for temp monitor is: 


Temp monitor 
Not ordered 


Used in rules: 369, 370 
Patient order for pressure monitor is: 


Pressure monitor 
Not ordered 


Used in rules: 371, 372 
Patient category is: 


I Self Care/Minimal Care 

II Moderate Core 

III Acute Care €1 staff to 3 patients) 

IV Intensive Care (1 staff to e patients] 
VU Continuous Care (1 staff to 1 patient) 
UI Eritical Care C1 starr te 1 potrenc. 


Used in rules: 377-38ce 


ReLES 


Rule Number: 1 
IF: Vital signs order is: WID or less 
res eocooltnts 195 gvensthe value Eptpoint Jet 1 


Rule Number: e2 
ieee rt cat Signs order 1s: qth or x & 
Pitewcsepeooimts 15 given the value Cptpoint] +e 


Rule Number: 3 
ft Vrctal signs @rder is: geh or x le 
Pte peoOlmtcs is givem the value Cptpointl et 4 


Rule Number: 4 
BeomWital signs omder is: qifa or x eY4 
eNiaptpointl] is given the value Cptpoint] + 8 


Rule Number: 5S 
IF: Vital signs order is: Not ordered 
THEN: Cptpointj] is given the value: no points awarded 


Rule Number: 6 
tea Rectal Or axillary temp order is: Rectal temps 
less than QID 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 7 
IF: Rectal or axillary temp order is: Axillary temps 
less than QID 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: 8 
tee Rectal Or axillary temp order is: Rectal temps 
GD OG snore 
mmeN: Cotpoint] 1s given the value Cptpoint] + e 


Rule Number: Q 
IF: Rectal or axillary temp order is: Axillary temps 
QID or more 
mien: CLptpoint] is given the value Cptpoint]? + 2 


Rule Number: 10 


IF: Rectal or axillary temp order is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


it 


Rule Number: 11 
IF: Patient order for apical pulse is: Apical pulse less 
than QID 
THEN: Cptpointl] is given the value: no polnes ovecees 


Rule Number: 12 
IF: Patient order for apical pulse is: Apical pulse QID 
Or more 
THEN: Cptpoint] is given the value Cptpointieec 


Rule Number: 13 
IF: Patient order for apical pulse is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 14 
IF: Patient order for femoral pulse is: Femoral pulses 
less than qtth 
THEN: Cptpoint) is given the value: no points Guarded 


Rule Number: 15 
IF: Patient order for femoral pulse is: Femoral pulses 
qth or more 
THEN: Cptpointl] is given the value Cptpointd +e 


Rule Number: 16 
IF: Patient order for femoral pulse is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 17 
IF: Patient order for pedal pulses is: Pedal pulses less 
than qth 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 18 
IF: Patient order for pedal pulses is: Pedal pulses qth 
Or more 
THEN: Cptpoint) is given the value Cptpoint)] + e 


Rule Number: 19 
IF: Patient order for pedal pulses is: Not ordered 
THEN: Cptpointd is given the value: no points awarded 


Rule Number: c20O 
IF: Patient order for FHT is: FHT less than qth 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: el 


IF: Patient order for FHY is: FHI Ganeer mteage 
THEN: Cptpoint] is given the value [ptpeintsaeeee 


ez 


Rule Number: ee 
IF: Patient order for FHT is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 23 
IF: Patient order for tilt test is: Tilt test less 
eEhG@itaeg = 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: e4 
IF: Patient order for tilt test is: Tilt test qth 

Or more 
THEN: Cptpoint) is given the value Cptpoint) + 2 


Rule Number: 25 
IF: Patient order for tilt test is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 26 
IF: Patient order for post-op/post-partum/post-newborn 
vital signs is: Post-op 
THEN: Cptpoint) is given the value Cptpoint] + 6 


Rule Number: 27 
IF: Patient order for post-op/post-partum/post-—-newborn 
vital signs is: Post-partum 
THEN: Cptpoint) is given the value Cptpoint) + 6& 


Rule Number: 28 
IF: Patient order for post-op/post-partum/post-newborn 
vital signs is: Post-newborn 
THEN: Cptpoint) is given the value Cptpoint] + 6 


Rule Number: e9 
IF: Patient order for post-op/post-partum/post-newborn 
vital signs is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 30 
IF: Patient order for intake & output is: Intake & 
output less than q8h or x 3 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 31 
IF: Patient order for intake & output is: Intake & 
Output at least q8h (x 3), but less than qth C€x 6) 
THEN: Cptpoint] is given the value Cptpoint) + e 


le 


Rule Number: 32 
IF: Patient order for intake & output is: Intake & 
QUEDUE Gi Or <6 
THEN: Cptpoint] is given the value Cptpointl] + 4 


Rule Number: 33 
IF: Patient order for intake & output is: Intake & 
GUEDUE "Gen ore~ te 
THEN: Cptpoint] rs given the value Eptperneieaee 


Rule Number: 34 
IF: Patient order for intake & output is: Intake & 
OUCPUE Gln Ore set 
THEN: Cptpoint] is given the value Cptpeinei aie 


Rule Number: 35 
IF: Patient order for intake & output is: Not ordered 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: 36 
IF: Patient order for circulation checks is: Circulation 
checks less than qeh or x le 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 37 
IF: Patient order for circulation checks is: Circulation 
checks qeh or x ile 
THEN: Cptpoint) is given the value Cptpoint) +e 


Rule Number: 38 
IF: Potient order for circulation checks is: Circulation 
checks qlh or x e4 
THEN: Cptpoint) is given the value Cptpointl] + 4 


Rule Number: 39 
IF: Patient order for circulation checks is: Not ordered 
THEN: Cptpoint)] is given the value: no points awarded 


Rule Number: 40 
IF: Patient order for neuro checks is: Neuro checks less 
thon eth of- xo 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: %1 
IF: Patient order for neuro checks is: Neuro checks 
ath or x=6 
THEN: CptpointJ is given the value Cptpointj) + 3 
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Rule Number: 4% 
IF: Patient order for neuro checks is: Neuro checks 
qehn or x le 
THEN: Cptpoint) is given the value Cptpoint) + 6 


Rule Number: 43 
IF: Patient order for neuro checks is: Neuro checks 
Glineor x et 
THEN: Cptpoint] is given the value Cptpoint) + le 


Rule Number: 44 
IF: Patient order for neuro checks is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 4S 
IF: Patient order for CVP manual readings is: CUP manual 
readings less than qeh or x i12 
THEN: Cptpointj is given the value: no points awarded 


Rule Number: ‘4%t6 
IF: Patient order for CVP manual readings is: CVP manual 
readings qehn or x ile 
THEN: Cptpoint] is given the value Cptpointl) +e 


Rule Number: 47 
IF: Patient order for CVP manual readings is: CVUP manual 
readings qlh or x 24 
THEN: Cptpoint] is given the value Cptpoint] + 4 


Rule Number: 46 
IF: Patient order for CVP manual readings is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 49 
IF: Patient order for ICP manual readings is: ICP manual 
readings less than qeh or x ile 
THEN: Cptpoint)d is given the value: no points awarded 


Rule Number: SO 
IF: Patient order for ICP manual readings is: ICP manual 
readings qehn or x ile 
THEN: Cptpointd is given the value Cptpoint) + 2 


Rule Number: 5S1l 
IF: Patient order for ICP manual readings is: ICP manual 
readings qih or x e4 
THEN: Cptpoint) is given the value Cptpoint) + 4 


nis 


Rule Number: Se 
IF: Patient order for ICP manual readings is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: S3 
IF: Patient order for fundus checks is: Fundus checks 
less than qé@h or x le 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: S4 
IF: Patient order for fundus checks is: Fundus checks 
qenvoc x > ic 
THEN: ECptpoint] is given the value Cptpoint) +e 


Rule Number: SS 
IF: Patient order for fundus checks is: Fundus checks 
qinae@r x 24 
THEN: Cptpoint] is given the value Cptpoint) + 4 


Rule Number: S6 
IF: Patient order for fundus checks is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: S7 
IF: Patient order for transcutaneous monitor is: 
transcutaneous monitor 
THEN: Cptpoint] is given the value Cptpoint) + 6 


Rule Number: S8 
IF: Patient order for transcutaneous monitor is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: S93 
IF: Patient order for an A-line set-up is: A-line set-up 
THEN: ECptpoint] is given the value Cptpeintgat =] 


Rule Number: 60 
IF: Patient order for an A-line set-up is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 61 
IF: Patient order for an ICP monitor set-up is: ICP 
monitor set-up 
THEN: Eptpoint] is given the valle Cptpoinite es 
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Rule Number: 62 
IF: Patient order for an ICP monitor set-up is: Not 
ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 63 
IF: Patient order for Swan Ganz set-up is: Swan Ganz 
set-up 
THEN: Cptpoint) is given the value Cptpoint) + 4 


Rule Number: 64 
IF: Patient order for Swan Ganz set-up is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 65 
IF: Patient order for A-line reading is: A-line reading 
less than qeh or x ile 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 66 
IF: Patient order for A-line reading is: A-line reading 
geh ore le 
THEN: Cptpointld is given the value Cptpoint) + 2 


Rule Number: 67 
IF: Patient order for A-line reading is: A-line reading 
ain -omex ct 
THEN: Cptpoint) is given the value Cptpoint) + 4 


Rule Number: 686 
IF: Patient order for A-line reading is: Not ordered 
THEN: Cptpointd is given the value: no points awarded 


Rule Number: 69 
IF: Patient order for ICP monitor reading is: ICP 
monitor reading less than qeh or x ie 
THEN: Cptpointj is given the value: no points awarded 


Rule Number: 70 
IF: Patient order for ICP monitor reading is: ICP 
monitor reading qeh or x ie 
THEN: Cptpoint) is given the value Cptpoint) + e 


Rule Number: 71 
IF: Patient order for ICP monitor reading is: ICP 
monitor reading qih or x e4 
THEN: Cptpoint]) is given the valus Cptpoint]) + 4 


ae, 


Rule Number: 72 
IF: Patient order for ICP monitor Freadeingee. ect 
ordered 
THEN: Cptpointl] is given the value: no points aworded 


Rule Number: 73 
IF: Patient order for PAP/PA wedge reading is: PAP/PA 
wedge reading of less than q'th or x 6 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 74 
IF: Patient order for PAP/PA wedge reading is: PAP/PA 
wedge reading of qth or x & 
THEN: Cptpoint] is given the value Cptpoint] + e 


Rule Number: 75 
IF: Patient order for PAP/PA wedge reading is: PAP/PA 
wedge reading of qeh or x le 
THEN: Cptpoint)] is given the value Cptpoint] + 4 


Rule Number: 76 
IF: Patient order for PAP/PA wedge reading is: PAP/PA 
wedge reading of qih or x e4 
THEN: Cptpoint)] is given the value Cptpoint] + 6 


Rule Number: 77 
IF: Patient order for PAP/PA wedge reading is: Not 
ordered 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: 78 
IF: Patient order for cardiac output is: Cardige outa 
less thon TID or x 3 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 79 
IF: Patient order for cardiac output is: Cardiac output 
at least TID Cx 3) but less than qth Cx 6) 
THEN: Cptpoint) is given the value Cptpoint] + e 


Rule Number: 80 
IF: Patient order for cardiac output is: Cardiac output 
CiheiGgr =<7o 
THEN: Cptpoint) is given the value Cptpointl] + 4 


Rule Number: 81 
IF: Potient order for cardiac output is: Cardiac output 
Gen OG ele 
THEN: Cptpoint) is given the value Cptpoint] + 8 


1S 


Rule Number: 8e 
Pee eeltademMe Geaer FOr cardiac output is: Cardiac output 
ain Or xX «ett 
THEN: Cptpoint] is given the value Cptpoint] + 16 


Rule Number: 83 
IF: Patient order for cardiac output is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 84 
IF: Patient order for ADL is: Infant/toddler care 
C=< S years) 
PieNeericwGimel lowmgiven the value Eptpoints + G 


Rule Number: 85 
IF: Patient order for ADL is: Self/minimal care Cadult 
Ga Child > S»years) 
THEN: Cptpointjl is given the value Cptpointi +e 


Rule Number: 86 
IF: Patient order for ADL is: Assisted care (> S years) 
positions self 
THEN: Cptpoint] is given the value Cptpointl] + 6 


Rule Number: 87 
IF: Patient order for ADL is: Complete care (> 5S years) 
assists with positioning 
THEN: ECptpoint) is given the value Cptpointid + 14 


Rule Number: 88 
IF: Patient order for ADL is: Total care (> S&S years) 
position and skin care qeh 
THEN: Cptpointld is given the value Cptpointj] + 3e 


Rule Number: 893 
iF: ePatient order for extra linen change and partial 
bath is: Extra linen and partial bath less than ex 
BEE eSnLlt t 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: 930 
IF: Patient order for extra linen change and partial 
BoGhmeis? eXtra Linen Gnd partial bath ex per shift 
Saen: Cptpointl] is given the value Cptpoint] + % 


Rule Number: 91 
IF: Patient order for extra linen change and partial 
Both S exc oa. lineg@.GnG.nartial both 4x per shift 
THEN: Cptpoint] is given the value Cptpoint] + 8B 
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Rule Number: 92 
IF: Patient order for extra linen change and partial 
bath is: Extra linen and partial Bath Sx ser shies 
THEN: Cptpointl] is given the value Cptpointi ys ae 


Rule Number: 933 
IF: Patient order for extra linen change and partial 
bath is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 94 
IF: Patient order for turning frome is: Turning frame 
less than qeh 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: 95 
IF: Patient order for turning frame is: Turning frame 
Gell Ome. ce 
THEN: Cptpoint) is given the value Cptpoint] + 14 


Rule Number: S36 
IF: Patient order for turning frame is: Turning frame 
On Opes ect 
THEN: Cptpoint] is given the value Cptpoint] + 28 


Rule Number: 97 
IF: Patient order for turning frame is: Not ordered 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: 98 
IF: Patient order for peds recreation/observation is: 
Peds recreation/observation - O-1le yrs Cexc NBN) 
THEN: Cptpointi is given the value (ptpoeinmti se 


Rule Number: 99 
IF: Patient order for peds recreotion/observation is: 
Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 100 
IF: Patient order for tube feedings is: Tube feedings 
continuous -- less than 1 bag per e% hours 
THEN: Cptpointj] is given the value: no points awarded 


Rule Number: 101 
IF: Patient order for tube feedings is: Tube feedings 
continuous -- 1 bag per ect hours 
THEN: Cptpoint) is given the value Cptpointj +e 
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Rule Number: 10e 
IF: Patient order for tube Feedings is: 
continuous -- 2 bag per et hours 
THEN: Cptpointl] is given the value Cptpointd 


Tube 


Rule Number: 103 
IF: Patient order For tube feedings is: 
continuous -- 3 bag per e% hours 
THEN: CptpointJld is given the value Cptpoint) 


Tube 


Rule Number: 104 
IF: Patient order for tube feedings is: 
continuous -- 4% bag per e4 hours 
THEN: Cptpoint] is given the value Cptpointd 


Tube 


Rule Number: 105 
IF: Patient order for tube feedings is: 
continuous -- 6 bag per et hours 
THEN: Cptpointl is given the value Cptpointd 


Tube 


Rule Number: 106 
IF: Patient order for tube feedings is: 
continuous -- le bag per et hnours 
THEN: Cptpoint)] is given the value (Cptpointd 


Tube 


Rule Number: 107 
IF: Patient order for tube feedings is: 
continuous -- e4¢ bag per et hours 
THEN: Cptpoint) is given the value Cptpoint) 


Tube 


Rule Number: 108 

Pee rotIent order for tube feedings is: 
Cbolus) less than qth or x 6 

THEN: Cptpointl is given the value: 


Tube 


Rule Number: 109 
IF: Patient order for tube feedings is: 
Cbolus) qth or x & 
THEN: Cptpoint) is given the value Cptpoint] 


Tube 


Rule Number: 110 
IF: Patient order for tube feedings is: 
fpolusie agen or x ic 
THEN: Cptpointl] is given the value Cptpointd 


Tube 


Rule Number: 111 
IF: Patient order for tube feedings is: 
tCboluss~ailh or.~ 2% 
THEN: Cptpoint] is given the value Cptpoint) 


Tube 


ad 


Feedings 


cae ¢ 


Feedings 


a 1S 


Feedings 


52 18. 


Feedings 


aac 


Feedings 


et 


Feedings 


es 


Feedings 


no points awarded 


Feedings 


i 


Feedings 


“ao 


Feedings 


+7 oO 


Rule Number: 11e 
IF: Patient order for tube feedings is: Not ordered 
THEN: CptpointjJ is given the value: no points awarded 


Rule Number: 113 
IF: Patient order for spoon feedings is: Adult meals 
> S years Cspoon feed x 3) 
THEN: Cptpoint) is given the value Cptpointi] + 6 


Rule Number: 114 
IF: Patient order for spoon feedings is: Child meals 
=< S years Cspoon feed x 3) 
THEN: Cptpointld is given the value Cptpoeints ao 


Rule Number: 115 
IF: Patient order for spoon feedings is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 116 
IF: Patient order for infant/neonate bottle Feeding is: 
Infant/neonate bottle x 1 Feeding 
THEN: Cptpoint] is given the value Cptpointj] + 2 


Rule Number: 117 
IF: Patient order for infant/neonate bottle Feeding is: 
Infant/neonate bottle qtth or x 6 
THEN: Cptpoint) is given the value Cptpoint] + 1e 


Rule Number: 118 
IF: Patient order for infant/neonate bottle feeding is: 
Infant/neonate bottle qeh or x ie 
THEN: Cptpointd is given the value Cptpointld + e4 


Rule Number: 119 
IF: Patient order for infant/neonate bottle feeding is: 
Not ordered 
THEN: CptpointJ is given the value: no points qwarded 


Rule Number: 120 
IF: Patient order for IV insertion is: IV insertion 
THEN: Cptpoint) is given the value Cptpointi +e 


Rule Number: ie1 
IF: Patient order for IV insertion is: Not ordered 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: iee 


IF: Patient order for NG insertion is: NG insertion 
THEN: Cptpoint) is given the value Cptpointj +e 


ba2 


Rule Number: 123 
IF: Patient order for NG insertion is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: i1c4 
IF: Patient order for foley insertion/straignt 
catheterization is: Foley insertion 
THEN: Cptpoint] is given the value Cptpointj] +e 


Rule Number: 125 
IF: Patient order for foley insertion/straighnt 
catheterization is: straight catheterizat of less 
than 3 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 126 
IF: Patient order for foley insertion/straight 
catheterization is: straight catheterizat of 4% or 
more 
THEN: Cptpoint) is given the value Cptpointi] + 4 


Rule Number: 127 
IF: Patient order for Foley insertion/straight 
caotheterization is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 1c8 
tees FOtient Order foreEKG rhythm strip is: EKG rhythm 
strip 
THEN: Cptpoint] is given the value Cptpoint] + e 


Rule Number: 129 
IF: Potient order for EKG rhythm strip is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 130 
IF: Patient order for surgical prep is: Surgical prep 
THEN: Cptpoint] is given the value Cptpoint] + e 


Rule Number: 131 
IF: Potient order for Surgical prep is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 132 
IF: Patient order for enemas is: Enemas 
THEN: Cptpoint] is given the value Cptpoint] + 2 


Rule Number: 133 


IF: Patient order for enemas is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 
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Rule Number: 134 
IF: Patient order for ace wrap/elastic stockings is: Ace 
wrap 
THEN: Cptpoint] is given the value Cptpointj + e 


Rule Number: 135 
IF: Patient order for ace wrap/elastic stockings is: 
Elastic stockings 
THEN: Cptpoint) is given the volue Cetperncle ee 


Rule Number: 136 
IF: Patient order for ace wrap/elastic stockings is: Not 
ordered 
THEN: CptpointjJ is given the value: no points awarded 


Rule Number: 137 
IF: Patient order for dressing change is: Simple 
dressing change less than x @2 or BID 
THEN: Cptpointd is given the value: no points awarded 


Rule Number: 138 
IF: Patient order for dressing change is: Simple 
dressing change x e or BID 
THEN: Cptpointd is given the value Cptpoint) + e 


Rule Number: 139 
IF: Patient order for dressing change is: Simple 
dressing change x 3 or TID 
THEN: Cptpointd is given the value Eptpolneiea 


Rule Number: 140 
IF: Patient order for dressing change is: Simple 
dressing change x 4 or QID 
THEN: Cptpointl is given the volue tptpoincld aa. 


Rule Number: 141 
IF: Patient order for dressing change is: Simple 
dressing change x 6 or qth 
THEN: Cptpoint) is given the value Cptpointd + 6 


Rule Number: 1l14e 
IF: Patient order for dressing change is: Simple 
dressing change x le or qéeh 
THEN: Cptpoint] is given the value Cptpointj + le 


Rule Number: 143 
IF: Patient order for dressing change is: Simple 
dressing change x e4 or qih 
THEN: Cptpoint] is given the value Cptpetne eee. 
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Rule Number: 144 
IF: Patient order for dressing change is: Complex 
dressing change x 1 
THEN: Cptpoint] is given the value Cptpoint] + 4 


Rule Number: 145 
IF: Patient order for dressing change is: Complex 
dressing change x e@ or qieh 
THEN: CptpointjJ is given the value Cptpointj) + B 


Rule Number: 146 
IF: Patient order for dressing change is: Complex 
dressing change x 3 or TID 
THEN: CptpointJ is given the value Cptpointj + le 


Rule Number: 147 
IF: Patient order for dressing change is: Complex 
dressing change x 4 or QID 
THEN: Cptpoint] is given the value Cptpoint) + 16 


Rule Number: 148 
IF: Patient order for dressing change is: Complex 
dressing change x 6 or qth 
THEN: CptpointJ is given the value Cptpoint) + e4 


Rule Number: 149 
IF: Patient order for dressing change is: Complex 
dressing change x ie or qeh 
THEN: CptpointJ is given the volue CptpointJ + 4B 


Rule Number: 150 
IF: Patient order for dressing change is: Complex 
dressing change x e4 or qih 
THEN: CptpointjJ is given the value Cptpointj + 96 


Rule Number: i151 
IF: Patient order for dressing change is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 1iSe 
IF: Patient order for tube care Cnot trach) is: Tube 
care less than x e or BID 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 153 
IF: Patient order for tube care (not trach} is: Tube 
core x e@ or BID 
THEN: Cptpointl] is given the value Cptpointj] +e 
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Rule Number: 154 
IF: Patient order for tube care C€not trach) is: Tube 
core. x 3 or Tn 
THEN: Cptpeint)] is given the value Cptpoipes 23 


Rule Number: 155 
IF: Patient order for tube care (not trach) is: Tube 
core x & or GiE 
THEN: Cptpoint) is given the value €ptpeints =e. 


Rule Number: 156 
IF: Patient order for tube care €not trach) is: Tube 
GGre<) GS occgidn 
THEN: Cptpoint] is given the value Cptpoint) + 6 


Rule Number: 157 
IF: Patient order for tube care Cnot trach) is: Tube 
coce <x le ec. aden 
THEN: Cptpoint) is given the value Cptpoint] + te 


Rule Number: 158 


IF: Patisnt order for tubs care (not troach) is: Tube 
Cace ~~ 24 Ge Gih 


THEN: Cptpoint) is given the value Cptpoint) + 24 


Rule Number: 159 
IF: Patient order for tube care (not trach) is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 160 
IF: Patient order for Foley care is: Foley care less 
then xve crews.) 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 161 
IF: Patient order for Foley care is: Foley care x @ or 
BID 
THEN: Cptpoint) is given the value fptpoarmes. ss 


Rule Number: 16e 
IF: Patient order for Foley care is: Foley care x 3 or 
TID 
THEN: Cptpoint) is given the value (ptpeimes ae 


Rule Number: 163 
IF: Patient order for Foley care is: Foley care x 4 or 
QID 
THEN: Cptpoint) is given the valWe Eptpelne se 
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Rule Number: 164 
IF: Patient order for Foley care is: Foley care x 6 or 
Oleg p) 
THEN: Cptpointj is given the value ECptpoint] + 6 


Rule Number: 165 
IF: Patient order for Foley care is: Foley care x 12 or 
qeh 
THEN: Cptpoint] is given the value Cptpointj] + 1e 


Rule Number: 166 
IF: Patient order for Foley care is: Foley care x ec4 or 
qih 
THEN: Cptpointl] is given the value Cptpointl] + 24 


Rule Number: 167 
IF: Patient order for Foley core is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 168 
IF: Patient order for S &aA is: S &A x 1or QD 
THEN: Croupoint)] is given the value Croupoint] + 1 


Rule Number: 169 
IF: Patient order for S &aA is: S & Ax @ or BID 
THEN: Croupoint] is given the value Croupoint) + e 


Rule Number: 170 
IF: Patient order for S &A is: S & A x 3 or TID 
aeeNM NO LOUpoints iS given the value Croupoint] + 3 


Rule Number: 171 
IF: Patient order for S &aA is: 5S & A x4 or QID 
THEN: Croupoint) is given the value Croupoint)j + 4 


Rule Number: 172 
Pees recient order for S & Ais: S & A x 6 or gtth 
mAaeEN: Eroupoint] is given the value Croupoint] + & 


Rule Number: 173 
IF: Patient order for S &A is: S & A x 12 or qeh 
meena seGoOuUpointd is given the value Croupoint] + le 


Rule Number: 174 
IF: Patient order for S &A is: S & A x e@4+ or qih 
THEN: Croupoint) is given the value Croupoint] + e4 


Rule Number: 175 
IF: Patient order for S & A is: Not ordered 
THEN: Croupoint] is given the value: no points awarded 


ey, 


Rule Number: 176 
IF: Patient order for Sp Gr is: Sp Ghee oeeee 
THEN: Croupointjd is given the value (Creuset eae: 


Rule Number: 177 
IF: Potient order for Sp Gre is: Sp Gr se onmene 
THEN: Croupoint] is given the value Eroupaginese 


Rule Number: 178 
IF: Patient order for Sp Gr is: Sp Ge x J28eree8 
THEN: Croupoint) is given the value CLraupointae+ ss 


Rule Number: 179 
IF; Patient order for Sp Gr is? Sp Gr xeon une 
THEN: Croupoint) is given the value CLroupointes a2 


Rule Number: 180 
IF: Patient order for Sp Gr is: Sp Gr <x Seen ao. e 
THEN: Croupoint) is given the value Croupoint) + 6 


Rule Number: 181 
IF: Potient order for Sp Gr is: Sp Gr <x levervaged 
THEN: Croupointl] is given the value Croupoint? + 7e 


Rule Number: 1862 
IF: Potient order for Sp Gr is: Sp Gre x ec] ee eau 
THEN: Croupoint] is given the value Croupoint? + 7eo 


Rule Number: 183 
IF: Patient order for Sp Gr is: 2 Netrereccec 
THEN: Croupoint) is given the value: no points awarded 


Rule Number: 18% 
IF: Potient order for Guiaoc stools is: Guiac stools x 1 
or QD 
THEN: Croupoint) is given the value Croupointd] + i 


Rule Number: 185 
IF: Patient order for Guiac stools is: GUicc stools a 
or BID 
THEN: Croupoint) is given the volue Craupeinel yee 


Rule Number: 186 
IF: Patient order for Guiac stools is: Guiac stools x 3 
or TID 
THEN: Croupoint? is given the value Croupsintl ee 


Rule Number: 187 
IF: Patient order for Guioc stools is: Guioc stools x 4 
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or QID 
PaoNeeerGupeints is given the value Croupoint] + 4 


Rule Number: 188 
IF: Patient order for Guiac stools is: Guiac stools 
mol Gtk 
THEN: Croupoint] is given the value Croupointj + 6 


Rule Number: 189 
IF: Patient order for Guioc stools is: Guioc stools 
or qenh 
THEN: Croupoint) is given the value Croupointj + le 


Rule Number: 190 
IF: Patient order For Guice stools is: Guioc stools 
Siac Ln 
THEN: Croupoint)] is given the value Croupointij + e4 


Rule Number: 191 
IF: Patient order for Guioc stools is: Not ordered 
THEN: Croupoint)] is given the value: no points awar 


Rule Number: 192 
Maer Oociene,asder Fer spin HEI is: Spin HCT x 1 or 
THEN: Croupoint)d is given the value Croupoint) + 1 


Rule Number: 193 
eee Patienteorder for spin HCT is: Spin HCI x e or 
THEN: Croupoint)] is given the value Croupoint] +e 


Rule Number: 194 
i Foclent order For spin HCT is: Spin HET x 3 or 
THEN: Croupointd is given the value Croupoint)] + 3 


Rule Number: 195 
me: FPokient ordem fom spim HET is: Spin HCT x 4 or 
THEN: Croupointd is given the value Croupoint] + 4 


Rule Number: 196 
IF: Patient order for spin HCT is: Spin HCT x 6 or 
THEN: Croupoint) is given the value Croupoint) + 6& 


Rule Number: 1937 


x 


ded 


QD 


BID 


nto 


QID 


Gain 


ie 


aw 


meee PQtient order for spin HCT is: Spin HCT x le or qéeh 


BHEN: Croupoint] is given the value Croupoint) + le 


Rule Number: 1938 


Bieeeracient order FOr spin HET is: Spim HET x e+ or qlh 


hAeN: Croupoint] is given the value Croupoint] + 24 


129 


Rule Number: 199 
IF: Patient order for spin HCT is: Not ordered 
THEN: Croupoint) is given the value: no points awarded 


Rule Number: c2oo 
IF: Patient order for lab studiss is: Lab studies less 
than x 6 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 201 
IF: Patient order for lab studies is: Lab studies x 6 or 
qth 
THEN: €Cptpoint] is given the value Cptpointieaee 


Rule Number: ce0e 
IF: Patient order for lab studies is: Lab studies x il12 
Gr Gen 
THEN: Cptpointd) is given the value Eptpoeintiaee 


Rule Number: e203 
IF: Patient order for lab studies is: Lab studies x e4 
Or qlh 
THEN: Cptpoint) is given the value Cptpoint) + 8B 


Rule Number: c2O4 
IF: Patient order for lab studies is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: eO0S 
IF: Patient order for ABG sticks is: ABG sticks, less 
thane = .3 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 206 
IF: Patient order for ABG sticks is: ABG sticks, at 
least x 3, but less than x 6&6 
THEN: Cptpoint] is given the value Cptpointj + 2 


Rule Number: c0Q7 
IF: Patient order for ABG sticks is: ABG sticks x 6& 
THEN: Cptpoint] is given the value Cptpointdj) + “4 


Rule Number: 208 
IF: Patient order for ABG sticks is: ABG sticks x 12 
THEN: Cptpoint]) is given the value Cptpoint)d + 8 


Rule Number: e209 


IF: Patient order for ABG sticks is: ABG sticks x et 
THEN: Cptpoint] is given the value Cptpoint) + 16 


130 


Rule Number: 210 
IF: Patient order for ABG sticks is: Not ordered 
THEN: Cptpoint) is given the values: no points awarded 


Rule Number: 211 
IF: Patient order for blood culttures is: Blood cultures 
less than x 3 
THEN: Cptpoint) is given thse value: no points awarded 


Rule Number: ele 
IF: Patient order for blood culttures is: Blood cultures 
at least x 3 but less than x 6 
THEN: Cptpointj] is given the value Cptpoint) + 2 


Rule Number: 213 
IF: Patient order for blood culttures is: Blood cultures 
x 6 
THEN: Cptpoint) is given the value Cptpoint) + ¢& 


Rule Number: 214% 
IF: Patient order for blood culttures is: Blood cultures 
ee 
THEN: Cptpoint) is given the value Cptpoint) + 8 


Rule Number: 2158 
IF: Patient order for blood culttures is: Blood cultures 
ott 
THEN: Cptpoint) is given the value Cptpoint] + 16 


Rule Number: 216 
IF: Potient order for blood culttures is: Not ordered 
THEN:. Cptpoint) is given the value: no points awarded 


Rule Number: 217 
IF: Patient order for medications is: Medications less 
than q8h Cexclude IV) 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 218 
IF: Patient order for medications is: Medications q3h - 
Genetex~elude [U) = up te ie trips 
THEN: Cptpoint) is given the value Cptpoint] + 2 


Rule Number: 219 
IF: Patient order for medications is: Medications qeh or 
more Cexclude [VJ - > 12 trips 
THEN: Cptpoint]) is given the value Cptpoint]) + 4 


io 


Rule Number: 220 
IF: Patient order for medications is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: ee2i1 
IF: Patient order for irrigations is: Irrigations x 4 
CQID) or less 
THEN: Cptpoint) is given the value Cptpoint) + e 


Rule Number: eee 
IF: Patient order for irrigations is: Irrigegtronswaae 
Of Gh 
THEN: Cptpoint) is given the value Cptpoint) + 3 


Rule Number: 223 
IF: Patient order for irrigations is: Irrigations 2 
or qeh 
THEN: Cptpoint] is given the value Cptpoint) + 6 


Rule Number: eect 
IF: Patient order for irrigntions is: Irrigatians 5.2. 
Of qin 
THEN: Cptpoint) is given the value Cptpoint) + le 


Rule Number: eeS 
IF: Patient order for irrigations is: Not ordered 
THEN: Cptpointl)d is given the value: no points awarded 


Rule Number: ec6 
IF: Patient order for instillations is: Instillations 
x 4 CQIDI or less 
THEN: Cptpoint) is given the value Cptpointj] + e 


Rule Number: ee7 
IF: Patient order for instillations is: Instillations 
x76 GG o1h 
THEN: Cptpoint) is given the value Cptpoint) + 3 


Rule Number: e286 
IF: Patient order for instillations is: Instillations 
x Vi evon dem 
THEN: Cptpoint) is given the value Cptpoint) + 6 


Rule Number: e293 
IF: Patient order for instillations is: Instillations 
Koen OG weer 
THEN: Cptpoint) is given the value Cptpoint) + le 
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Rule Number: 230 
IF: Patient order for instillations is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: e231 
IF: Patient order for restraints is: 2 point 
THEN: Cptpoint] is given the value Cr anoint] +e 


Rule Number: 232 
IF: Patient order for restraints is: 4% point 
THEN: Cptpoint] is given the value Cptpoint) + 2 


Rule Number: e233 
IF: Patient order for restraints is: Posey 
THEN: Cptpoint) is given the value Cptpoint) + e 


Rule Number: 234 
IF: Patient order for restraints is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 23S 
IF: Patient order for assist to chair/stretcher is: 
Assist to chair less than x 3 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: e236 
IF: Patient order for assist to choir/stretcher is: 
Assist to stretcher less than x 3 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 237 
IF: Patient order for assist to chair/stretcher is: 
Assist to stretcher by at least 3 but less than 6 
heen: EpPtpoeints is given the value Cptpoint] + 2 


Rule Number: 238 
IF: Patient order for assist to chair/stretcher is: 
Assist to stretcher x 6 or qth 
THEN: Cptpoint] is given the value Cptpointj + 4 


Rule Number: e239 
IF: Patient order for assist to choir/stretcher is: 
Assist to stretcher x le or qeéh 
THEN: Cptpoint] is given the value Cptpoint] + B 


Rule Number: 240 
IF: Patient order for assist to chair/stretcher is: 
Assist to stretcher x e+ or qih 
THEN: Cptpoint] is given the value Cptpoint] + 16 
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Rule Number: e411 
IF: Patient order for assise 
Assist to chair at least 
THEN: Eptpaeint) ts Vetven ene 


Rule Number: e4e 
IF: Patient order for assist 


to chair/stretcher is: 
x 3 but less than x 6 
volue (ptpoertntiawee 


to choir/stretcher is: 


Assist to chair x 6 or q'th 


THEN: Cptpoint) is given the 


Rule Number: e443 
IF: Potient order for assist 


value Cptpointieeae 


to choir/stretcher is: 


Assist to chair x 1le or qeh 


THEN: Cptpoint) is given the 


Rule Number: c44 
IF: Patient order for assist 


volue Cptpoint) + 8 


to choir/stretcher is: 


Assist to choir x e4 or qih 


THEN: CptpointjJ is given the 
Rule Number: ¢e4S 

IF: Patient order for assist 

Ambulate with assistance 

THEN: Cptpointj) is given the 


Rule Number: c46 
IF: Patient order for assist 
Ambulate with assistance 
THEN: Cptpoint) is given the 


Rule Number -se.7 
IF: Patient order for assist 
Ambulate with assistance 
THEN: CptpointjJ is given the 


Rule Number: c48 
IF: Patient order for assist 
Ambulate with assistance 
THEN: Cptpoint) is given the 


Rule Number: ce439 
IF: Patient order for assist 
Ambulate with assistance 
THEN: Cptpointj] is given the 


Rule Number: eS0 
IF: Patient order for assist 
Ambulate with assistance 
THEN: CptpointjJ is given the 


134 


volue {ptpointd 7 ie 


to choir/stretcher is: 
ow 
value Cptpoinkgyeee 


to chair/stretcher is: 
xoe 
volue Cptpointi +84 


to choir/stretcher is: 
Mora 
volue Eptpoeines +e 


to choir/stretcher is: 
aed. 
value Cptpointd)see 


to chair/stretcher is: 
x 6 
volue Cptpoint? +32 


to choir/stretcher is: 
< he 
volue Cptpointl]” +fen 


Rule Number: 251 


IF: Patient order for assist to chair/stretcher is: 


Ambulate with assistance x e4 
THEN: Cptpoint] is given the value 


Rule Number: eS5e 


IF: Patient order for assist to chair/stretcher is: 


ordered 


THEN: Cptpoint) is given the value: 


Rule Number: 253 


Ppp Glee e at 


no points awarded 


IF: Patient order for infant circumcision care is: 


lmbpeanevCLOCuUmeLS1On care 


Been we DteGint] 1S given the value Cptpoint) + e 


Rule Number: e2S4 


IF: Patient order for infant circumcision care is: 


ordered 


THEN: Cptpoint] is given the value: 


Rule Number: 255 
IF: Patient order for phototherapy 
THEN: Cptpoint] is given the value 


Rule Number: 2565 
Peo FOtlent Grderefor phototherapy 


THEN: Cptpoint)d is given the value: 


Rule Number: 257 


IF: Patient order for isolation is: 


gown and gloves less than x 8) 


THEN: Cptpointld is given the value: 


Rule Number: 258 


IF: Patient order for isolation is: 


gown and gloves x 8 or more) 
THEN: Cptpointl) is given the value 


Rule Number: e2S9 


IF: Patient order for isolation is: 
THEN: Cptpointd is given the value: 


Rule Number: 2650 


Not 


no points awarded 


is: Phototherapy 
a Ea @ dent sees 


1s: Not ordered 
no points awarded 


Isolation Cchange 


no points awarded 


Isolation Cchange 


EpEpoimeay+ 


Not ordered 
no points awarded 


IF: Patient order for accompany patient off ward is: 


Accompany patient off ward for 


THEN: Cptpoint) is given the value: 


Rule Number: 261 


less than 15 min 
no points awarded 


Sc ratient order For accompany patient off ward is: 


iD 


Not 


Accompany patient off ward for 1S tesseene 
THEN: Eptpoint] is given the value [Lptpoineieee 


Rule Number: e6e 
IF:. Patient order for accompany patient off tara 
Accompany patient off ward for greater than 30 min 
THEN: Cptpointld is given the value Cptpointl] + 4% 


Rule Number: e63 
IF: Patient order For accompany potient off ward is senee 
ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 264 
IF: Patient order for other activities is: Other 
activities requiring less than 1S minutes 
THEN: Cptpointld is given the value: no points awarded 


Rule Number: e65 
IF: Patient order for other activities is: Other 
activities requiring 15 to 30 minutes 
THEN: Cptpointl] is given the value Lptpointieees 


Rule Number: eC66 
IF: Patient order for other activities is: Other 
aoctivities requiring 30 min to lo heu. 
THEN: Eptpointj is given the value Cptpointl] + 4 


Rule Number: ec67 
IF: Patient order for other activities is: Special 
procedures > 1 hr < @ hr Crequiring continuous stafF 
attendance) 
THEN: Cptpointjd is given the value Eptpointi) + 8 


Rule Number: c68 
IF: Patient orc2r for other activities is: Not ordered 
THEN: Cptpointi is given the value: no points awarded 


Rule Number: e693 
IF: Patient order for chest tube insertion is: Chest 
tube insertion 
THEN: Cptpoint) is given the value [ptperineie 


Rule Number: e270 
IF: Patient order for chest tube insertion is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: e271 
IF: Patient order for lumbar punctuce 1s; bureae 
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puncture 
THEN: Cptpoint)] is given the value ECptpoint) + 4 


Rule Number: 27e 
IF:- Patient order for lumbar puncture is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: e273 
IF: Patient order for thoracentesis is: Thoracentesis 
ordered 
THEN: Cptpoint) is given the value Cptpoint) + 4 


Rule Number: 274 
IF: Patient order for thoracentesis is: Not 
ordered 
THEN: Cptpoint) is given the value: no points dquwarded 


Rule Number: e275 
IF: Patient order for porocentesis is: Paracentesis 
THEN: Cptpointl] is given the value Cptpointl) + 4 


Rule Number: 276 
IF: Patient order for poracentesis is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: ¢77 
IF: Patient order for range of motion is: Range of 
motion exercises less than x 3 or TID 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 278 
IF: Potient order for range of motion is: Range of 
motion exercises at least x 3 but less than x 6 
THEN: Cptpoint) is given the value Cptpoint) + 4 


Rule Number: 279 
IF: Patient order for range of motion is: Range of 
motion exercises x 6 or qth 
THEN: Cptpoint) is given the value Cptpoint) + B 


Rule Number: e280 
IF: Potient order for range of motion is: Range of 
motion exercises x le or qen 
MaeN: Cptpointd] is given the value Cptpointi] + 16 


Rule Number: e281 
IF: Patient order for range of motion is: Range of 
motion exercises x e4% or qlh 
THEN: Cptpoint) is given the value Cptpoint) + 32 


on 


Rule Number: 2e8e 
IF: Patient order for range of motion is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: e83 
IF: Patient order to transfer in-house or new admission 
is: Transfer in-house Cassess and orient) 
THEN: Cptpointd is given the value Cptpoint) + ¢ 


Rule Number: e284 
IF: Patient order to transfer in-house or new admission 
is: New admission Cassess and orient) 
THEN: Cptpointld is given the value (Cptpointid + la 


Rule Number: e8S 
IF: Patient order to transfer in-house or new admission 
is: Not ordered 
THEN: Cptpoint] is given the values: no points awarded 


Rule Number: 286 
IF: Patient order for Oe therapy or oxyhood is: Oxygen 
therapy 
THEN: Cptpoint) is given the value CptpointjJ + e 


Rule Number: 287 
IF: Patient order for Oe therapy or oxyhood is: Oxyhood 
THEN: Cptpoaintl is given the value [ptpointing 


Rule Number: e88 
IF: Patient order for Oe therapy or oxyhood is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 289 
IF: Patient order for incentive spirometer is: Incentive 
spirometer less than q'th 
THEN: Cptpointd is given the value: no points awarded 


Rule Number: e390 
IF: Patient order for incentive spirometer is: Incentive 
spirometer q'th 
THEN: CptpointJ is given the value Cptpoint) +e 


Rule Number: e291 
IF: Patient order for incentive spirometer is: Incentive 
Spirometer qeh 
THEN: Cptpoint) is given the value Cptpointi9s a 


Rule Number: 2e9e 
IF: Patient order for incentive spirometer is: Incentive 


ere 


spirometer qlh 
THEN: Cptpointl] is given the value Cptpointi] + 8 


Rule Number: 293 
IF: Patient order for incentive spirometer is: Not 
- ordered 
THEN: Cptpointld is given the value: no points awarded 


Rule Number: cSt 
IF: Patient order for C&DB is: C&DB less than qth 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 2935S 
IF: Patient order for C&DB is: C&DB qth 
THEN: Cptpoint) is given the value Cptpoint) + e 


Rule Number: c3S6 
IF: Patient order for C&DB is: C&DB qeh 
THEN: Cptpoint] is given the value Cptpoint) + 4 


Rule Number: e937 
IF: Patient order for C&DB is: C&DB qih 
THEN: CptpointJ is given the value Cptpoint) + 8 


Rule Number: e398 
IF: Patient order for C&DB is: Not ordered 
THEN: Cptpointl] is given the value: no points awarded 


Rule Number: e939 
Beer Gciemce Order for IPPB @r maximist is: IPPB or 
maximist less than BID or x 2 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 300 
ie FOocient order for IPPB er maximist is: IPPB or 
maximist BID or x e@ 
ineEN: Cpotpoint] is given the value ECptpoint] + 2 


Rule Number: 301 
tremerattent order for IPPB or maximist is: IPPB or 
Moxstimist Pil ver x 3 
THEN: Cptpoint] is given the value Cptpoint] + 3 


Rule Number: 302 
fe- Foatient @rder for IPPBeor maximist is: IPPB or 
maximist QID or x 4 
THEN: Cptpointj is given the value Cptpointj] + 4% 


Rule Number: 303 
IF: Patient order for IPPB or maximist is: IPPB or 


roo 


maximist qth or x 6 
THEN: CptpointI is given the value fptperneseees 


Rule Number: 30% 
IF:. Patient order for IPPB Or mcximiSt Scere ceo. 
MOxXimisSt gen oOfexete 
THEN: Cptpoint) is given the value Cptpointj + ie 


Rule Number: 30S 
IF: Patient order for IPPB or moximist is: I1Preeon 
MExXimist @Giheer << et 
THEN: Cptpoint) is given the value Cptpointj + 24 


Rule Number: 306 
IF: Patient order for IPPB or maximist is: Not ordered 
THEN: Cptpointj is given the value: no points awarded 


Rule Number: 307 
IF: Patient order for croup tent or mist tent is: eeaae 
tent 
THEN: Cptpointl] is given the value tptpointineead 


Rule Number: 308 
IF: Patient order for croup tent or mist tent is: Mist 
tent 
THEN: Cptpoint] is given the value Cptpointj) + 8 


Rule Number: 309 
IF: Patient order for croup tent or mist tent is: Not 
ordered 
THEN: Cptpointj is given the value: no points awarded 


Rule Number: 310 
IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy less than BID or x e2 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 311 
IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy BID or x e 
THEN: Cptpoint) is given the value Cptpointi + 2 


Rule Number: 3le 
IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy TID or x 3 
THEN: CptpointI is given theevalue Cptpoints +e 


Rule Number: 313 
IF: Patient order for chest pulmonary therapy is: Chest 
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pulmonary therapy QID or x 4 
THEN: Cptpoint] is given the value Cptpointl] + 4 


Rule Number: 314 
IF:. Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy qth or x 6 
THEN: Cptpoint] is given the value Cptpoint)] + 6 


Rule Number: 315 
IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy qeh or x le 
THEN: Cptpointl) is given the value Cptpoint) + ie 


Rule Number: 316 
IF: Patient order for chest pulmonary therapy is: Chest 
pulmonary therapy qlih or x e4 
THEN: Cptpoint)] is given the value Cptpoint) + e4 


Rule Number: 317 
IF: Patient order for chest pulmonary therapy is: Not 
ordered 
THEN: Cptpointld is given the value: no points awarded 


Rule Number: 318 
IF: Patient order for suctioning is: Suctioning less 
than @tth ome x«6 
THEN: Cptpoint] is given the value: no points awarded 


Rule Number: 319 
Pees rGtient order for suctioming is: Suctioning ath or 
aS 
faeN: ECptpoint] is given the volue Cptpointl] + e 


Rule Number: 320 
fee FGcient order for suctioning is: Suctioning gqeh or 
Keele 
THEN: Cptpoint] is given the value Cptpoint) + 4% 


Rule Number: 321 
Mee Fr Gtient Or@er for suctioning is: Suctioning gqih or 
xoGt 
THEN: Cptpoint) is given the value Cptpoint] + 8B 


Rule Number: 32c2 
IF: Patient order for suctioning is: Not ordered 
THEN: Cptpointj) is given the value: no points awarded 


Rule Number: 323 
IF: Patient order for trach care is: Trach care less 
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thon x 4 Ofer 
THEN: Cptsoint] is given the value: no points awarded 


Rule Number: 3c4 
IF:. Patient order for trach care is: Trach care at least 
TID Cor x 3) but less thonvqthee >. 
THEN: Cptpoint] is given the value fptpoeincie & 


Rule Number: 325 
IF: Potient order for trach care is: Trach core Gaines 
xe 
THEN: Cptpoint) is given the value Cptpoint] + 8 


Rule Number: 32c6 
IF: Patient order for trach care is: Trach core Ggeneen 
x le 
THEN: Cptpointld is given the value Cptpoint) + 16 


Rule Number: 32e7 
IF: Patient order for trach care is: Trach care gingee 
Me 
THEN: Cptpoint) is given the value Cptpoint) + 3e 


Rule Number: 3c8 
IF: Patient order for trach care is: Not ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 3c9 
IF: Patient order For ventilator is: Venti tore. 
THEN: Cptpoint] is given the value Cptpoeintl ye 


Rule Number: 330 
IF: Patient order for ventilator is: Not ordered 
THEN: Cptpointld is given the value: no points awarded 


Rule Number: 331 
IF: Patient order for hanging IV bottles is: KYO Cchange 
bottle BID or less) 
THEN: Cptpoint] is given the value Cptpoint] +3 


Rule Number: 332 
IF: Patient order for hanging IV bottles is: Simeze 
Cchange bottle TID or QID) 
THEN: Cptpoint] is given the value Cptpoint) + & 


Rule Number: 333 
IF: Patient order for hanging IV bottles is: Complex 
Cchange bottle qth or more, two or more sites, or 
multilumen tube) 
THEN: Cptpoint) is given the value CptpointJd + 98 | 
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Rule Number: 334% 
IF: Patient order for hanging IV bottles is: Not ordered 
THEN: Cptpoint)] is given the value: no points awarded 


Rule Number: 335 
IF: Patient order for heparin lock or Broviac cathether 
is: Heparin lock 
THEN? Cptpertne!s as given the value Cptpointy] + 4 


Rule Number: 336 
IF: Patient order for heparin lock or Broviac cathether 
is: Broviac catheter 
THEN-@ptopoines 1s given the value Cptpoint) + 4 


Rule Number: 337 
ee rotitecm: GFGer FOR heparin iock or Broviac cathether 
is: Not ordered 
THEN: Cptpoint)] is given the value: no points awarded 


Rule Number: 338 
IF: Patient order for IV medications is: IV medications 
of less than q8h or x 3 
THEN: Cptpointld is given the value: no points awarded 


Rule Number: 339 
IF: Patient order for IV medications is: JV medications 
Qe on GF x 3 
BaEN: EptpGant)] is given the value Cptpoint] + e 


Rule Number: 340 
IF: Patient order For IV medications is: IV medications 
ea gem or x 4 
THEN: Cptpoint)] is given the value Cptpoint] + 3 


Rule Number: 341 
IF: Patient order for IV medications is: IV medications 
OF Cihmer x & 
maeN: Cotpeint)] is given theevalue Cptpointl] + 4 


Rule Number: 34e 
IF: Patient order for IV medications is: IV medications 
Began ae x le 
SeaeN:; Lptpeintl is given the value Cptpoint] + 86 


Rule Number: 343 
IF: Patient order for IV medications is: IV medications 
Cac ln OG x -et 
THEN: Cptpointld is given the value Cptpoint] + 16 
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Rule Number: 344 
IF: Patient order for IV medications is: Not ordered 
THEN: Cptpointjd is given the value: no points awarded 


Rule Number: 345 
IF: Patient order for blood products is: Blood proedteee 
x 1 Sonnet 
THEN: Cptpointld is given the value [ptporncis ee 


Rule Number: 346 
IF: Patient order for blood products is: Blood prog@ee 
x (2 ou pease 
THEN: Eptpoint] is given the value [ptpointi es 


Rule Number: 347 
IF: Patient order for blood products is: Blood products 
x 2 unve 
THEN: Cptpoint] is given the value Cptpointj + 6 


Rule Number: 3486 
IF: Patient order for blood products is: Bleed predic 
x ial 
THEN: Cptpoint] is given the value Cptpointi + 6 


Rule Number: 349 
IF: Patient order for blood products is: Blood products 
xX 6 ume 
THEN: Eptpoint) is given the value Eptpointi sec 


Rule Number: 350 
IF: Patient order for blood products is: Blood sroadieee 
x Tesunre 
THEN: Eptpoint] is given the value [xstpointie wee. 


Rule Number: 351 
IF; Patient order for blood products is: BlooG proeteece 
XxX, et sure 
THEN: Cptpointl3 is given the value Cptpointi + 468 


Rule Number: 35e 
IF: Patient order for blood products is: Not osdeeer 
THEN: Cptpoint3 is given the value: no points awarded 


Rule Number: 353 
IF: Patient order for group teaching is: Group teaching 
THEN: Eptpointl is given the value Potpointie 


Rule Number: 3S4 


IF: Patient order for group teaching is: Not ordered 
THEN: Cptpoint] is given the value: no points awarded 
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Rule Number: 355 
IF: Patient order for preoperative teaching is: 
Preoperative teaching 
THEN: Cptpoint]) is given the value Cptpointj + 4 


Rule Number: 356 
IF: Patient order for preoperative teaching is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 357 
IF: Patient order for structured teaching is: Structured 
teaching Ci.s. diabetic, cardiac, colostomy care, 
post partum first e¢ hr, newborn core, discharge) 
THEN: Cptpoint) is given the value Cptpointjl + ¢4 


Rule Number: 358 
IF: Patient order for structured teaching is: Not 
ordered 
THEN: Cptpoint) is given the value: no points awarded 


Rule Number: 359 
IF: Patient order for emotional support is: Patient/ 
Family Support Ci.e. anxiety, denial, lonliness, 
etc.) 
THEN: Cemopoint] is given the value Cemopoint) + 4 


Rule Number: 360 
IF: Patient order for emotional support is: Not ordered 
THEN: Cemopointd is given the value: no points awarded 


Rule Number: 361 
woe) Lotlent order Fer modification of lifestule is: 
Emotional support for modification of lifestyle 
Ci.e. new prothesis, body image, behavior 
m@aGgdit il Gation, etc. J 
THEN: Cemopoint) is given the value Cemopoint] + 4 


Rule Number: 362 
IF: Patient order for modification of lifestyle is: Not 
ordered 
THEN: Cemopointld is given the value: no points awarded 


Rule Number: 363 
IF: Patient order for sensory deprivation is: Emotional 
Support for sensory deprivation Ci.e. retarded, 
Blind, deaf, language barrier, bilateral eye 
patches, confused, combative, etc.) 
THEN: Cemopoint) is given the value Cemopoint) + & 
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Rule Number: 364 
IF: Patient order for sensory deprivation is: Not 
ordered 
THEN: Cemopoint) is given the value: no points awarded 


Rule Number: 365 
IF: Patient order for cardiac manitGs is: Gases. 
monitor 
THEN: Cmonpointl] is given the value Cmonpoint)] + 6 


Rule Number: 366 
IF: Patient order for cardiac monitor is: Not ordered 
THEN: Cmonpoint) is given the value: no points awarded 


Rule Number: 367 
IF: Patient order for apnea monitor is: Apnea monitor 
THEN: Cmonpoint] is given the value Cmonpointld + 6 


Rule Number: 368 
IF: Patient order for apnea monitor is: Not ordered 
THEN: Cmonpointj is given the value: no points awarded 


Rule Number: 369 
IF: Patient order for temp monitor is: Temp monitor 
THEN: Cmonpoint] is given the value Cmonpoint) + 6 


Rule Number: 370 
IF: Patient order for temp monitor is: Not ordered 
THEN: Cmonpoint) is given the value: no points awarded 


Rule Number: 371 
IF: Patient order for pressure monitor is: Pressure 
monitor 
THEN: Cmonpoint) is given the value Cmonpointl] + 6 


Rule Number: 372 
IF: Patient order for pressure monitor is: Not ordered 
THEN: Cmonpointld is given the value: no points awarded 


Rule Number: 373 
[FS EmeneOi me) »> 20 
THEN: Cptpointi] is given the value Cptpointi =a 


Rule Number: 37% 
[EB OGeupOing)..>a=4 
THEN: Cptpoint) is given the value Cptpoint) + 
Lroupe2 ne. 


Rule Number: 375 
IF: CemopointjJ > O and Cemopointd) < il 
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THEN: CptpointJ is given the volue Cptpoint) + 
Cemopoint) 


Rule Number: 376 
IF: Cemopoint) > 10 
THEN: CEptpoint) is given the value Cptpointij + 10 


Rule Number: 377 
ee oeoOolmes 2= © and ftptpoint] < 13 
THEN: Patient category is: I Self Care/Minimal Care 


Rule Number: 378 
re: Epepoines 7 ete and fptpointi < 3e 
THEN: Patient category is: II Moderate Care 


Rule Number: 379 
IF: Cptpointj > 31 and Cptpoint) < 64 
THEN: Patient category is: III Acute Core (1 staff to 3 
patients) 


Rule Number: 360 
me: Eptpoints > 63 and Lptpoint] < S36 
THEN: Patient category is: IV Intensive Core (1 staff 
to e patients) 


Rule Number: 381 
me Eptpointd > SS and ECptpoint] < 146 
THEN: Patient category is: V Continuous Core (1 staff 
to 1 patients) 


Rule Number: 382 
Pee botpoimes > 14S 
THEN: Patient category is: VI Critical Core (C1 staff 
to 1 patients) 
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APPENDIX E 


PROGRAM LISTINGS 


i i te we INTRO ‘ PRG | ee ee eee ee ee ee ee ee ee ke ee ee 


** * + * & * & * F F HR F 


* 


Author : 
Date: 
Screen Generated Buy: 


Purpose: 


Input Files Used: 
Output Files Used: 
Calling Routine: 
Routine Called: 
Modi=t ication, Bate: 


Gory R. Harmeyer LCDR NC USN 

eC6 November 1985 

The Softwore Bottling Company 
OF New York, c19385 

Introductory screen for the proto- 
type model. 

Intro.Scr and Prechwien cu 

None 

None 

Volta bed 

18 February 1986 


—— Screen [Input Program For lneson.- 


Set Procedure To 8:Procfile 
Do Setup 

Publ re Flesh 
Flash -=*Chet les 


Bo While aa. 


- -= "Screen display 8B: Intro: Ses~ae 


Set Procedure To B:Procfile 


Set Coler-vovwr/s. 7 


Clear 


Cee Vrs oes Mee OnoeE7. 


Sec- Galore vty sw 


seo) 

Set Console OFF 
Nilo alae 

Set Console Qn 
De 82 Valia 


Enddo 
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He Me PROCF ILE : PRG (eee eee ee ee EEE EE SERRE REE ERR RES EERE EES ES OS 


* * # &€&&# & & ee HR FE 


Author: Gory R. Harmeyer LCDR NC USN 

Date: 1 December 1985 

Purpose: See comments above each procedure. 
Input Files Used: None 

Output Files Used: Orders and Nearedb.Dbf 

Calling Routine: All modules 

Routine Called: None 


Modification Date: 18 February 1986 


-- Screen headers after patient selection -- 


Procedure Headings 


@ 2,3 Say Ptselect 
0 e&, te Say Ptregno 
Cf 2,56 Say Datel) 
@ 2,65 Say Timel ) 
@ 22,3 Say Curuser 
Return 


* -- Used to reset pointer and put data from variable 
—— names into Orders.Dbf -- 


ad 


Procedure Replaord 


Store DTOCCDatelj)) To Now 
Use B:Orders 


Do While 


Skip 
Enddo 


NOC eons) 


Append Blank 


Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 


Return 


Order With Morder 
Fmpssn With Ptfmpssn 
Freq With Ofreq 

Otime With TimeCl) 

Odate With Now 

Prac With Curuser 
Expertsys With Passdata 
Onlytoday With Todayonly 
SCElEteal With PeEpeint 
Module With Omodule 
Monpt With Monpoint 
Emopt With Emopoint 
Roupt With Roupoint 
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» -—- Used to reset pointer cnd put data From variable 
“ -- names into Ncoredb.DObf -- 


Procedure Repnrord 


Use B:Ncoredb 

Do While .Not. EQFC) 
Skip 

Enddo 


Append Blank 


Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 


Nfmpssn With Ptfmpssn 
Nord With Morder 
Ntime With Timel) 
Ndoate With Datel) 
Nurse With Curuser 
Ndiag With Nursdiag 
Assess With Nassess 
Relate With Nrelate 
Goal With Ngoal 
Nfreq With Ofreq 
Emotea With Emoteach 


Return 


* -- Determine the current nursing care level -- 
Procedure Current 


KOOOTCUE As 5 
@ 23,67 Get Xgoattcur Pict 


| > 


Read 
Do While .Not. CXgoattcur = “A” .@r. Xgoatcure=aa 
Xgoatcur = "C”.0r. Xgoatcur’+ "D” .Or. Xgeatcenee 


@ 2396/7 Clear 
Store ” ” To Xgoatcur 
@ e+,0 Soy "Re-Enter Letter A, 8, Cle ones. 
(@ 23,67 Get Xgoatcur Pict as. 
Read 
Enddo 


* -- ASSign value to letter selected -- 


Do Case 
Case Xgoattcur = ”A” 
Morder = "Infant/Toddler Care” 
Passdata = "Qe3 1” 
Pt poane = ic 
Case Agoatcur =] .5 
Morder = "Self/Minimum Care” 


SO 


Cae 


ea 


Poassdotas= "ics e” 
Ptpoint = <2 
Case Xgoattcur = "”C” 
 Morder = "Assisted Care” 
Passdata = "Qe3 3” 
PEpoint ='6s 
Case Xgoattcur = ”"D” 
Morder = *Complete Care” 
Passdata = "Qe3 %” 
Pepeinkg — 14 
Case Xgoatcur = "E” 
Mord: 2%. .Ootal- Care” 
Passdata = "Qe3 5S” 
Ptpsint = 3c 


Endcase 
Return 
* -- Used to evaluate the proper value to pass to the 
— expert system for oral, IM or subq medication 
a Eabegery options, —— 


Procedure Regmeds 


Do Case 
Case CTimeopt < eS .Or. Timeopt = 41) 
* —-- Less than x 3 or TID 


Passdata = "Q47 1” 
Peooince = 2 

Case CTimeopt > ect .And. Timeopt < 36) 
ime neoeOLerrooup tO x lec trips 
Passdata = "Q47 2” 
Pepoint = ec 

Case (Timeopt > 35 .And. Timeopt < 40) 
== more jthan le trips 
Passdata = "Q@47 3” 
Sepolnt «=. + 


Endcase 
Return 
* -- Used to evaluate the proper value to pass to the 
——— expert system for laboratory category options -- 


Procedure Labcount 


Do Case 
Case CTimeopt < 34% .Or. Timeopt = 41) 
Eassdatu.=. Gta 1” 
Peooink "0 


eS 


Case (Timeopt = 34 .Or. Timeopt = 35) 
Passdata = "Q44 e” 
PEpOinG =~ 2 

Case CTimeopt = 36 .Or. Timeopt “= 373 
Passdeata *™ Git 3. 
misjefepiighe ib. 

Case (Timeopt = 38 .Or. Timeopt = 39) 
Possdacat © “Gites. 
Ptpoint = B 

Endcase 
Return 


* -- Determine the liter Flow rate of oxygen -- 


Procedure Liter 


Xliteropt = "A” 
@- 23,66 Gets Xi2teropte Pick. 7!” 
Read 


Do While .Not. €Xliteropt = "A” .OF. Xliterape = 


Aliterapte= "C”.0r. Xliteropties "EG... 
@C@ 23,66 Clear 
Stone’ Telow lL eecope 


Xliteropt= 


f 24,0 Say “Re-Enter Letter A, 8, Eyeb@eor ee 


© €3.66 Gece Xliteropt Prete: = 
Read 
Enddo 


* -- Assign value to letter selected -- 
Do Case 
Case Xliteropt = "”A” 
Ali terse: - 6c lm: 
Case Xliteropt = "”B” 
ALliter + “Se. 3s-t1l/ Mm” 
Case Xliteropt = ”C” 
Xliter = “CC S.6 1/m” 
Case Xliteropt = ”B” 
Xliter y= C..7-8 elm 
Case Xliteropt = ”B” 
Xliteri= "CC S=107i7m: 
Endcase 
Return 


ee .Or ae 


Ew) 


* -- Used to evaluate the proper value to pass to the ex- 
+ pert system For IV medication category options -- 


dane 


Procedure IVmeds 


Do Case 
Case (Timeopt < eS .Or. 
* —--— Less than QBN or 


Passdata = ”"Q74 1” 


FEpOLint = O 


Case CTimeopt > e4 .And. 


——— senor £18 
Passdata = ”"Q74 2” 
Pepoint = ¢ 


Case (Timeopt > 30 .And. 


a cneGr xt 
Passdota = ”"Q74 3” 
Pepolne so 

Case (Timeopt = 34 .Or. 
wre ta OG aX oo 
Passdata = ”’Q74 4%” 
Pepoi nt. = + 

Case CTimeopt = 36 .Or. 
SS aaen of < ie 
Poassdata = "Q74 5” 
Ptpoint = & 

Case C(Timeopt = 38 .Or. 
*——-sQihn @e.x< ct 
Passdata = ”Q@74 6” 
Fepoint== 16 

Endcase 
Return 


* —— 


Procedure Startup 
Htceq = ” ” 
Ptpoint = O 
Passdata = ” ” 
Hocoauonly = "F” 
Emopoint = O 
Monpoint = O 
Roupoint = O 

Return 


Timeopt ~*~, 413) 


TID 


Timeopt < 31) 


Timeopt < 34) 


Timeopt = 35) 


Timeopt = 37) 


Timeopt = 39) 


Initialize variables in the order modules -- 


* -- Used to evaluate the proper value to pass to the 


* —— 


expert system for range of motion category -- 


wo 


Procedure Range 


Do Case 
Case (Timeopt < eS .Or. limeope.= 71) 
* -- Less than x 3 


Passdata = "061 1” 
Ptpoint “= O 
Case CTimeopt > e+ .And. Timeopt < 34) 
“>> X, 3 OF lesseemanex o> 
Passdata = ”Q61 2” 
PEBOiL Nt aaa 
Case CTimeopt = 34% .Or. Timeopt = 35) 
e ==) oO Or fan 
Passdata = "061 3” 
Pepoint = 8 
Case CTimeopt = 36 .Or. Timeopt = 37) 
= - >>) Xe OG eaen 
Passdatoa = "061 4” 
Ptpoint — 16 
Case CTimeopt = 38 .Or. Timeopt = 39) 
SSS Koeet OE. ain 
Passdata = "061 S” 
FEpOI ne = sae 


Endcase 
Return 
* -- Used to evaluate the proper value to pass to the 
a expert system For cough and deep breathe category 
ae Option —— 


Procedure Cough 


Do Case 
Case CTimeopt < 34 .Or. Timeopt = 41) 
* -- Less than Q4h or x & 


Passdata = "065 1” 
Ptpointe= 0 

Case CTimeopt = 34 .Or. Timeopt = 35) 
a= ele Olen 
Passdata = "0655 2” 
repoini =a 

Case CTimeopt = 36 .Or. Timeopt = 37) 
“—-— Genser alc 
Passdaoata = "06S 3” 
PEpOimt == so 

Case CTimeopt = 38 .Or. Timeopt = 39) 
* == Gh One oo 
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Possdota = "865 4%” 
Ptpoint = 8 
Endcase 
Return 


* -- Sets up the initial environment for each module -- 
Procedure Setup 

Clear 

Set Escape On 


Set Talk Off 
Set Echo Off 


Return 

* -- Used to evaluate the proper value to pass to the 
= expert system for S&A, specific gravity, Guiac 
| aio and spin Het category option -- 


Procedure Routine 


Do Case 
Case (Timeopt < S .Or. Timeopt = 41) 
* -- No specific frequency ordered 


Roupoint = O 

Case C(Timeopt > 4 .And. Timeopt < ee) 
Soak tor QD 
Roupoint = 1 

Case CTimeopt > 21 .And. Timeopt < 25} 
eeaa kX ec Or BID 
Roupoint =e 

Case CTimeopt > e4% .And. Timeopt < 31) 
'3-- X39 @r [iD 
Roupoint = 3 

Case CTimeopt > 30 .And. Timeopt < 34) 
27-- X “4. or GID 
Roupoint = 4 

Case C(Timeopt = 34% .Or. Timeopt = 35} 
2a hk oer G4h 
Roupoint = 6 

Case C(Timeopt = 36 .Or. Timeopt = 37) 
See ok Lenor Wen 
Roupoint = lie 

Base Cilimeopt = 38 .0r. Timeopt = 393 
eae eteor 1h 
Roupoint = ec4 

Endcase 
Return 


> 
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*SAuUENOr: Gary R. Harmeyer LCDR NC USN 
* Date: e December 1985 

* Screen Generated By: The Software Bottling Company 
* | Of New York, ci98S 

* Purpose: Evaluate the validity of the 
- password used. 

* Input Files Used: Valid.Scr and Preckile- pag 

* Output Files Used: Useinfo.DbfF 

* Colling heterne- [neco7ree 

* Routine Called: Master.Prg 

* TiGdit 1CatlGn eace: 18 February 1986 

* 

% 


-= SEreen i npue TEogeam For Vali tis 
*% 

Do Setup 

Public Xusepass, Curuser,Useacc 
Use B:Useinfo 

Xusepass = Space(5S) 

Xusepasi = Spaceli) 

Xusepase = Spaceli) 

Xusepas3 = Spacelil)j 

Xusepastt = Spaceli1) 

XusepasS = Spaceli)j 


Do While .T. 
* =- Screen Disploy A:Valid.Scecr <a 
Set Color To W+/B,W+/B 
Clear 


er Ff bash S.A volid.Sser? ” 
set. Calor 1a W+/7a Wt eB 


Gls 
* -- Ploces an ”’X” on the screen to mask the password 
=. EReCGCol]=. 


Set Console Off 
Wait To Xusepasl 
C23 ase" x 
Wait To Xusepase 
@ 234,55 Saye =~ 
Wait To Xusepas3 
@ 13.47 Sage 24 
Wait To Xusepas't 
@ Par SSO 
Wait To XusepasS 
O13 ,Si-Seu 


1.56 


Xusepass *; 
Upper ( Xusepas1+Xusepase+xusepas3+Xusepast+XusepasS) 
Set Console On 


* -- Evaluates the password entered -- 


Locate For Xusepass = Codeword 
If CXusepass <> Codeword) .And. EOFC) 
@® 24,15 Say "INVALID PASSWORD -- HIT ANY KEY” 
@ e4+,51 Say ” AND RE-ENTER” 
Set Console Off 
Wait 
Set Console On 
Loop 
Endif 
Store Ufinitial + * ’*® + TrimCUlname) To Curuser 
Store Access To Useacc 
@ 24,0 
@ 23,80 Clear 
@ 2e4,7 Say "Your Password Has Been Accepted -- 
@ et+,4te Say "Please Press A Key To Continue” 
Set Console Off 
Wait 
Set Console On 
Do B:Master 


Enddo 


i 
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* Author: Gary R. Harmeyer LCDR NC USN 
* Date: C6 November 1985 

* Screen Generated By: The Software Bottling Company 
OF New York, c19385 

* Purpose: Menu program to branch between the 
* admission’s department, the 
= database administration and 
7 the patient care personnel. 
* Input Files Used: Master .Scr and Procfile.Prg 

* Output Files Used: None 

* Calling Routine: Valid tag 

* Routine Called: Admit, Ward or Addelete.Prg 

* Modification Date: 4 February 1986 

* 

* >> SCECEn? PapUe TrEOgean Por (Mastenias 

gs 

Do Setup 


Public Xmasopt ,Qmodule 
Omodule = Spacel1) 


Hor while .t2 


**\== SCrech_Uispleu BB MNastersser ——] 


Set Color, lo W+7 Bw es 

Clear 

‘er losht SoS. Bo Measten.cer, 

set Color" lo Wt+/b,W+/7B 

Xmasopt = O 

@ 2,56 Say Datel) 

GC 2,65. 560) Time 

@ 22,3 Say Curuser 

@ 22,67 Get Xmasopt Pict "S” Range O,4 


Read 

* -- Evaluate action based on the option selected -- 
* -- Validate user’s access to area selected -- 

Do Case 


Case Xmasopt = O 
== SrOn-OLe 
Close Databases 
Close Procedure 
Release All 
Return To Master 


So 


Case Xmasopt = 1 


* -- Admission’s Department 
Do Case 
Case Useacc ~ @ .Or. Useacc = 3 .Or. Useacc = 4 
@ 24,16 Say "Access Not Allowed -- Press ” 


@® 24,44 Say "Any Key To Continue” 
Set Console OFF 
Wait 
Set Console On 
Loop 
Case Useacc = O .Or. Useacc = 1 

Do B:Admit 

Endcase 


Case Xmasopt = ce 


* -- Doctor Master 
Do Case 
Case Useacc = 1 .0Or. Useacc = e .Or. Useacc = 3 
@ 24,16 Say "Access Not Allowed -- Press ” 


@ e+,44 Say "Any Key To Continue” 
Set Console OFF 
Wait 
Set Console On 
Loop 
Case Useacc = O.0r. Useacc = 4 

Omodule = ”D” 
Do B:Ward 

Endcase 


Case Xmasopt = 3 


* -- Nursing Master 
Do Case 
Case Useacc = 1 .Or. Useacc = ec .Or. Useacc = 4 
@ 24+,16 Say "Access Not Allowed -- Press ” 


@ e4,44 Say "Any Key To Continue” 
Set Console Off 
Wait 
Set Console On 
Loop 
Case Useacc = O.0r. Useacc = 3 

Omodule = ”N” 
Do B:Ward 

Endcase 


Case Xmasopt = 4 


* -- System Administration 
Do Case 
Base Useace = | .Uf. Useace = 3 .0Or. Useacc = % 
©®@ 24,16 Say "Access Not Allowed -- Press ” 


@®@ 24,44 Say "Any Key To Continue” 
Loy 


Set Console Off 
Wait 
Set Console On 
Loop 
Case Useocc = O .0r. Useocc = ec 
Do B:Addelete 
Endcase 
Endcase 
Release Xmasopt 


Enddo 
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HH He ADNIT.PRG 3 We OE Ee Ae Ae aR A Re Oe Oe OE OE IE EAE aE SOE OE NE Oe Oe Oe aE aE ae ae aE aE Oe aE aE Ie ea a ae a ae ae a a 


* Author: Gary R. Harmeyer LCDR NC USN 

* Date: SS Jandarcyg 2986 

* Screen Generated By: The Softwore Bottling Company 

* OF New York, ci3S85 

* Purpose: Allows the admitting personnel to 
* choose to admit or discharge a 
e patient. 

* Input Files Used: Admit.Scr and Procfile.Prg 

* Output Files Used: None 

eecalling Routine: Master .Prg 

* Routine Calls: Peeitane OG Disecharg.Prg 
feniodification Date: eS January 1986 

* 

Seeeeocreem Input Program For Admit —- 

ae 

Do Setup 


huolic Xadmitoept 


Do While .T. 


woe Screen Display B:Admit.Scr -- 


Set Color To W+/B,W+/B 

Clear 

?? Flasht+”S.B:Admit.Scr/” 

Set Color To W+/B,W+/B 

Roaomitoopt = O 

@ 22,3 Say Curuser 

@ 22,67 Get Xadmitopt Pict ”9” Range O,e 


Read 
* -- Evaluate action based on the option selected -- 
Do Case 


Case Xadmitopt = O 
So. SLOMN-OE FE 
Close Databases 
Release All 
Close Procedure 
Return To Master 


Case Xadmitopt = i 
“* -- Admit A Patient 
Do B:Pt_Info 
Loop 


lier. 


Case Xadmitopt =e 
* -- Discharge A Patient 
Do B:Dischaorg 
Loop 


Endcase 
Release Xadmitopt 


Enddo 
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* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 293 November 1985 

* Screen Generated By: The Software Bottling Company 
— | OF New York, c198S 

* Purpose: Add a patient to the patient 
~ database file. 

* Input Files Used: Ee@lG@eo-oce and Frocfile.Frag 
* Output Files Used: Pt_Info.Dbf 

* Calling Routine: Admit.Prg 

* Routine Called: None 

* Modification Date: 26 January 1986 

* 

Zoe SICESeH I mput Foogram for Pt_Info -- 

- 

Do Setup 


Public Xplname, Xpfname, Xpmname, Xraterank, Xfmpssan 
Public Xpbdate, Xpage, Xpsex, Xpadmdate, Xpregno 


Public Xpmeddiag, Xpphy, Xpprog, Xpall, Xpward, Xprm, Xpbed 


Xplname = Spaceled) 
Xpfname = Spacel1e2) 
Xpmname = Spacel3) 
Xraterank = Space(11) 
Xfmpssan = ” -—”+Spacel(39) 
Xpbdate = Datel) 
Xpage = Spacel3) 
Xpsex = Spacel1) 
Xpadmdate = Datel) 
Xpregno = Space(s8) 
Xpmeddiag = Space(le't) 
mopmy = Spacelect) 
Xpprog = Spacel3) 
Xpall = SpaceCe4) 
Xpward = Space(2) 
Xprm = Space(1j 

Xpbed = Space(1) 


Do While .T. 
aeons ocreen Displauw B:Pt_Info.Scr -- 


Set Color To W+t/B,W+/B 

Clear 

fer lash+’S.B:Pt_Info.Scr/” 

Set Color To W+t/B,W+t/B 

C@S5,1% Get Xplname Pict ”!XXXXXXXXXXXXXXXXXXX” 
@ 7,1% Get Xpfname Pict ”! XXXXXXXXXXX” 

@ 9,14% Get Xpmname Pict ”! XX” 

@ 11,1% Get Xraterank Pict "!H!!!!iiiiit” 


ies 


@ 13,14 Get Xfmpssan Pict “SS -Ssee0sogeeu 
@ 15,14% Get Xpbdate; 
Ronge CIODC "01/01/00" ), CIBC le/si oa 
@ 17,14% Get Xpage Picks xx 
@ 193,14 Get Xpsex Picees 
@21,14% Get Xpadmdate; 
Range CIODC”01/01/700 J2GTSRE ie/3i7 3a 
@ 5,585 Get Xpregmo Pret.  s9SaSsssa 
@ 7,S5S Get Xpmeddiag Pict ”!XXXXXXXXXXXXXXXXXXXXXXX” 
@ 9,55 Get Xpphy Pict "!XXXXXXXXXXXXXXXXXXXXXXX” 
@ 11,55 Get xXopreg Ficta. 
@ 13,55 Get Xpoll Pict ”! XXXXXXXXXXXXXXXXXXXXXXX” 


* 


-- Validate input for ward, room and bed assignment -- 


@ 15,55 Get xpwaercd rick oi 
Read 
Do While .Not. C€Xpward = "2E”  .0c. Xoweanpae =e. 2e 
Xpword = Spacele) 
@ 2e4,0 Sey "Re-Enter Either cE or 3. 
©] 15,55 Get xXpword Pict. wi 
Read 
Enddo 
Stet, 0. Ciear 


@ 17.55 Get: Adem: Fier 432 
Read 
Do While .Not. CXprm * 71” .Or. Xprm = 2 aoe 
ADEM" ="t2.5 29 
Xprm = Spacelij 
@ 24+,0 Say "Re-Enter Either 1 or ce OF van 
G17. 5S Gee Aprm Fice Se 
Read 
Enddo 
@ e4+,O Clear 


@ 19,55 Get Xpbed PICT "!” 
Read 
Do While .Not. C€Xpbed = "A” .Or. Xpbed = ”B”) 
Xpbed = Spaceli) 
@ e4%,0 Say "Re-Enter Either A or B” 
G@ 18,55 Get xXpbed Pict 7! 
Read 
Enddo 
@ e+,O Clear 


* -- Put data from variable names intoasbbae lhe. 


Use B:Pt_Info 
Do While .Not. EOFC) 
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Skip 
Enddo 


Append Blank 


Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 
Replace 


Return 

Release 
Release 
Release 


Enddo 


Piname With Xplname 
PFfname With Xpfname 
Pmname With Xpmname 
Raterank With Xraterank 
Fmpssan With Xfmpssan 
Podate With Xpbhdate 
Page With Xpage 

Psex With Xpsex 
Padmdate With Xpadmdate 
Pregno With Xpregno 
Pmeddiag With Xpmeddiag 
Ppohy With Xpphy 

Poprog With xXpprog 

Poll With Xpall 

Pward With Xpward 

Prem With Xprm 

Pboed With Xpbed 


Xplname, xpfname, Xpmname, Xraterank, Xfmpssan 
Xpbdate, Xpage, Xpsex, Xpadmdate, Xpregno 
Xpmeddiag, Xpphy, Xpprog, Xpall, Xpward, Xprm, Xpbed 
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* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 3S Jonvecu  sse 

* Screen Generated By: The Software Bottling Company 
. OF New York, c19385 

* Purpose: Discharge a patient. 

* Input Files Used: Discharg.Scr and Precfile@kea 
* Output Files Used: Pt_Info, Orders and Ncaredb.Dbf 
* Calling Routine: Admit.Prg 

* Routine Calls: None 

* Modification Date: 18 February 1986 

* 

* == Screen Input Program Poeceutsenerameas 

* 

Do Setup 


Public Xdischopt, Xdcfssn, Xdclname, Xdcfname 
Public Xdcmname, Xdcpphy, Xmdfmpssn, Xppack 
XPODGGK = .f. 

Select A 

Use B:Pt_Info 

Select B 

Use B:Orders 

Select C 

Use B:Ncaredb 


Do While =. fk. 


* --— Store data From Dbf File into variable names -— 
Select A 
Xdcefssn = Fmpssan 


Xdclname = Pliname 
Xdcfname = Pf&name 
Xdcmname = Pmname 
AGepphu = Pohy 


* -= Screen Display 8B: Discharg- ses... 


set Color fo W+7B-U+7B 
Clear 

Tt? Flosn+t os. 8: Discnereg ccs me 
Set Color 1a w+/75.0. 8 
Xdischopt = 1 

Ce,3 Say Curuser 
13,e@ Say Xdcfssn 
13.17 soaugxde inene 
13,38 Say Xdcfname 
13,51 Say Xdcmname 
13,55 Sau xdencal 


(a fa) fd fo) fa fod 
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emcee .o7 Get Xdischopt Pict °S” Range 0,3 
Read 


* -- Evaluate action based on the option selected -- 
Do Case 


Case Xdischopt = O 
ae ot omar er 
it Xppacw =, .1. 

Pack 

Endif 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xdischopt = i 


* -- Next Patient 
Skip 
fe EGF CC) 
@ &4,15 Say "No Additional Patients -- Press ” 


@ 24,47 Say "Any Key To Continue” 
Set Console Off 

War iit 

Set Console On 

DEwxwppeck = .1. 


Pack 
Enadi ft 
Close Databases 
Return 
Else 
Loop 
Emnaif 
Cose Xdischopt = 2 
* -- Discharge patient 
Mapcc Kea. 
Store ”’” + Xdcfssn + ”’” To Xmdfmpssn 
* -- Eliminate potient data from database files 
Select B 


Do While .Not. EOFC) 
Locate For Fmpssn = &Xmdfmpssn 
Le eaNGe oe Lor t) 
Delete 
Skip 
Beyelivg 
Enddo 
Pack 


S/ 


Select C 


De Unale = Nete 


EER ty 


Locate For Nfmpssn = &Xmdfmpssn 
If <Not. BOR 


Delete 
Skip 
Ene ie 
Enddo 
Pack 
Select A 
Deletes 
Skip 
LEVEOr Gb] 
@ yen. 15°50) 
Get. 177 seu 
Set Console 
Woit 
Set Console 
Pack 


"No Additional Patients -- Press ” 
"Any Key To Continue” 

GEE 

On 


Close Databases 


Return 
Else 

Leep 
Bnei 


Case Xdischopt = 3 


* -- Admit/Discharge Screen 


lt Appasck = UL. 
Pack 

Pie e 

Close Databases 

Return 


Endcase 


Release Xdischopt, Xdcfssn, Xdclname, Xdcfname 
Release Xdcmname, Xdcpphy, Xmdfmpssn, xppack 


Enddo 
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* Author: Gary R. Hormeyer LCDR NC USN 
* Date: 26 November 1985 

* Screen Generated By: The Softwore Bottling Company 
= OF New York, c19385 

* Purpose: Determine word selection. 

* Input Files Used: Word.Scr and Procfile.Prg 

* Output Files Used: None 

* Caolling Routine: Nestceg .Prog 

* Routine Called: Worde or Word3.Prg 
eeiediFicotion Dote: 4% February 1986 

1% 

oe-- ocreen Input Program For Ward -- 

1% 

Do Setup 


Public Xwardopt, Ourpt, Ofreq, Passdoto,Ptpoint, Todayonly 
Public Nonpoint, Emopoint, Roupoint,Ptselect, MNorder,Now 
Public Ptfmpssn,Ptregno 

Ofreq = Spacell1j 

Passdoto = Spoce(l6) 

Bepagint = O 

Receauonliy.= “F” 

Honpoint =, O 

Emepoaint ‘= O 

Foupecint = O 

Morder = Spocele7) 

Now = Spoce(8) 


Peewnile .1.. 
foes oOCleen Display 8:Ward.Scr -- 


Set Color To W+t/B,W+/B 

Clear 

fer losh+”"S.8:Word.Scr/” 

Set Color To W+/B,W+/B 

rPwardopt = 3 

@ 2,56 Say Datel) 

@®@ 2,65 Say Timel) 

@®@ 22,3 Soy Curuser 

@ecc,67 Get Xwordopt Pict "93” Ronge O,3 
Read 


fee, EVOluUote action based on the aption selected -- 
Do Case 


Case Xwardopt = O 
eo Lom —-OlCE 
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Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xwardopt = 1 
* -- CE SUrcGleG! Gerd 
Do B:Warde 
Return 


Case Xwardopt = e 
“* =-- 3E Medical Ward 
Do B:Ward3 
Return 


Case Xwardopt = 3 
* -- Master Screen 
Return 


Endcase 
Release Xwardopt 


FEnddo 
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He Wt ME Me WARDe.PRG SMe Oe Oe A A SA Ae SU ae SE ah RE RE NE Re ae Re a AO AR a IE SN Ne a Ea ea aa a EE 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 26 November 1398S 
* Screen Generated By: The Softwore Bottling Company 
” Of New York, c139385 
* Purpose: Displays patients assigned to ward 
™ CE, for patient selection. 
* Input Files Used: UoGee .Scr and. Preclile.Prg 
* Output Files Used: Feaimneo.UbDE 
* Calling Routine: Master .Prg 
eeroutine Called: BeceOn sore NUESe..- Eg 
meriocdif ication Date: Sree acl d te 
ge 
Beet Screen input program for Warde -- 
* 
Do Setup 
Public Xwdeopt, Xptiregno, Xpteregno, Xpt3regno, Xpt4tregno 
Public XptSregno, Xpt6regno, Xptil1, Xpte, Xpt3, Xpt%, XptS 
Public Xptifmpssn, Xptefmpssn, Xpt3fmpssn, Xpt6 
Public Xpt4fmpssn, XptSfmpssn, Xpt6fmpssn 
* -- Store specific data from Dbf file into variable 
7 names -- 
Use B:Pt_Info 
Beeace For Prm = °’1’ .And. Pbhed = ’A’ .And. Pword = ’2’ 
Xpti = Pfname - CC’ ’* +Plname3) 
Xptiregno = Pregno 
Xptifmpssn = Fmpssan 
meecace For Prm.-, ’1’ .And. Pbhed = ’B’ .And. Pward = ’2’ 
pote —“seFname - (’ ”® +Plname) 
Xpteregno = Pregno 
Xptefmpssn = Fmpssan 
meeagce For Prm.= ’e’ .And. Pbhed = ’A’ .And. Pward = ’2’ 
Xpt3 = PfFnaome —- CC’ ’ +Plname) 
Xpt3regno = Pregno 
Xpt3fmpssn = Fmpssan 
Smegce FOL Prm = ‘Cc’ .And. Pbhed?= °B’ .And. Pward = ‘2’ 
Rott = PEenome -~ CC’ * +Plname) 
Xpt4tregno = Pregno 
Xpt4¢fFmpssn = Fmpssan 
Bereece For Perm = °3’° .And. Pbhbed = ’°’A’ .And. Pword = ’2’ 
macs = PEname —- (’ * +Plnamel 
XptSregno = Pregno 
XptSfmpssn = Fmpssan 
maeate For FPrm™ ’3’ .And. Pbhed = °B’ .And. Pward = ’2’ 


Xpt6& = Pfname -— 
Xpt6regno = Pregno 


Xpt6fmpssn = Fmpssan 


{ d > 


+Plname) 


dg7A. 


Do While .T. 
* =-- Screen Displete Ss voeee oa 


set Color foxs:W+7e.u775 
Clear 

°°? Flasn+"S.8: Wecdesser, . 
Set Color To “W778 Ue 
XWwadeopt.- "7 

2,56 Say Datel) 

2,6S Say Time) 

3.39 Sauexeti 

10,339" saurx7pte 

le. go) Sawn xpeo 

13.39 SOurxott 

lS), 39 3SG0_%pes 

16,39 Say Xpt6 

22,3 Say Curuser 

2e2e,G7 Get Xwdeopt Pict °S” Range eo 


A fa fa) fo) fe) fo) fa) fd fa fo) fa 


3) 
QO 
oO 


Evaluate action based on the option selected -- 
Store data from Dbf File into variable names -- 


* #£ 
) i 
| ot 


Do Case 


Case Xwdeopt = O 
SSS bane tf 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xwdeopt = 1 

* -- Patient in room 1 bed A 

Locate For Prm =’1’.And. Pbed *"A’.And. Pularae= 
Ptregno = Xptiregno 
Ptselect =; 

Puaca. —C’ *+Peno—&. *+Ppbedia ce *+Xptl1j 

GUE Bt = xBel 
Ptfmpssn = Xptifmpssn 

le Ctegt.= ‘ 
©@ et+,9 Say "Sorry No Patient In neat see ee 
ete tooo *Please Press Any Key To Continue” 
Set Console Off 
Wait 
Set Console On 
Loop 

Bnet 
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re Omedule (= "Db 
Do B: Doctor 
Return 

Else 
Do B:Nurse 
Return 

Endif 

Return 


Case Xwdeopt = 2 

* -- Patient in room 1 bed B 

Locate For Prem =" And. Pbhed =*B’.And. Pward =’2’ 
Ptregno = Xpteregno 
Ptselect =; 

Pugea als Seen co '+EpedI—{* "“+tXpte 

Quge ce." Agee 
Ptfmpssn =~ Xptefmpssn 

LE Ota = ~ if 
ever seoey SoceuaNouelatient. im That Bed -- ” 
@ e4,%t+1 Say "Please Press Any Key To Continue” 
Set Console Off 
Wait 
Set Console On 
Loop 

Endif 

Le) Omodule =) *D” 
Do B: Doctor 
Return 

Else 
Do B:Nurse 
Return 

Endif 

Return 


Case Xwdeopt = 3 

* -- Patient in room e2@ bed A 

eOceeGe for Pom= “e'.And. FPaedt A .And. Puard= ’2’ 
Ptregno = Xpt3regno 
Ptselect =; 

Riley — Go? -+Pem Ja ‘tebed J—C- (-tXpes ) 

Ourpt = Xpt3 
Ptfmpssn = Xpt3fmpssn 

Pe OurCgaG = 7 si 
Senn oesoul oOettymanGeraorcient In That Bed -- ” 
@ 24,41 Say *Please Press Any Key To Continue” 
set Console Off 
Well t 
set Console On 
Loop 

Endif 
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If Omoedule =" ie 
Do B:Doctor 
Return 

Else 
Do B:Nurse 
Return 

Enaae 

Return 


Case Xwdeopt = 4 

*--= Potient in caomec BSedcs 

Locate For Prm= ’2’.And. Pbed= ’B’.And. Pward= ’2’ 
Ptregno = Xpttregno 
Ptselect =; 

Pword, Et 7 ‘+PromnS *+Pped ie ke +X peor 

Ourpt = Xpt4t 
Ptfmpssn = Xpttfmpssn 

If Ourpt = ” “ 
@ 24,9 Say "Sorry No Patient In Theat Bede oe 
@ e+,41 Soy "Please Press Any Key To Continue” 
Set Console Off 
Wait 
Set Console On 
Loop 

Endif 

If Omodule = ”D” 
Do B:Doctor 
Return 

Else 
Do B:Nurse 
Return 

Engie 

Return 


Case Xwdeopt = 5S 

* —-- Patient in coomes sbecen 

Locate For Prm= °3’.And. Pbed= A’ And: Bwerd= see 
Ptregno = XptSregno 
Ptselect =; 

Puard =G '+Prom) Se *+Ppeqds— a *+Xpeoe 

OUBGE. = -XptsS 
Ptfmpssn = XptSfmpssn 

lf iret. i 
@ 2t,3 Say "Sorry No Patient In That Bed —— ” 
@ e4+,41 Say "Please Press Any Key To Continue” 
Set Console OFF 
Woit 
Set Console On 
Loop 

Endif 
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ff Omedule = "D7 
Do B:Doctor 
Return 

Else 
Do B:Nurse 
Return 

Endif 

Return 


Case Xwdeopt = 6 

fe PObLent i GOoom S.bed B 

BacGecernog eran oso :2ona. Phed= 8° cand. Pward= ’2’ 
Ptregno = Xpt6regno 
Ptselect =; 

Puord =C* teem) — | * --Pped]—{ 7 peor 

OuUCBE “se Aptos 
Ptfmpssn = Xpt6fmpssn 

leeGurpt = ” * 
met So Say "Serry No Patient In That Bed -- ” 
@ 24,41 Say ”Please Press Any Key To Continue” 
Set Console OFF 
Woit 
Set Console On 
Loop 

Endif 

If Omodule = ”D” 
Bowes: PeCeor 
Return 

Else 
Do B:Nurse 
Return 

Endif 

Return 


Case Xwdeopt = 7 
* -- Master Screen 
Return 


Endcase 

Release Xwdeopt, Xptiregno, Xpteregno, Xpt3regno 
Release XptSregno, Xpt6regno, XptSfmpssn, Xpt6fmpssn 
Release Xptifmpssn, Xptefmpssn, Xpt3fmpssn, Xpt¢fmpssn 
Release Xpttregno, Xptl,xXpte,xXpt3,xXpt4, xptS, xpt6 


Enddo 
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i Me me WARD PRG Me Ae Ae A He HE RE Re BE Re HE a UE HE Oe OE RE He Hee Re EOE a RE ae EE Re eae ae OE AE ae a ae a ae ae 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 11 January 1986 

* Screen Generated By: The Software Bottling Company 
= OF New York, c1985 

* Purpose: Displays patients assigned to ward 
~ 3E, for patient selection. 
* Input Files Used: Word3.Scr and Procfilegeaga 

* Output Files Used: Peat on Jr 

* Calling Routine: Master .Prg 

* Routine Called: Doctor or Nurse.Prg 

* Modification Date: 3 Naeem, L366 

pg 

* -- Screen input programeror Waceeraan 

* 

Do Setup 

Public Xwd3opt, Xpt7, xpt&, xptS) xptcio, xpuel per 
Public Xpt7regno, Xpt8regno, Xpt9regno, XptiOregno 
Public Xptilregno, Xptieregno, Xp1ilfmpssn, Xpiefmpssn 
Public Xpt7fmpssn, Xpt8fmpssn, Xpt9fFmpssn, XplOfmpssn 

* -- Store specific data From Dbf File into variable 


ee names —— 


Use B:Pt_Info 


Locate For Prm.= ’1’ .And. Pbed @ ’A’ .And. Pwara yaa 
XADE7 ™ PEwmemes— €° ~*~ +Piname) 
Xpt7regno = Pregno 
Xpt7fFmpssn = Fmpssan 

Locate For Prm = °’1’ .And. Pbed = ’B’ .And. Pwordis oe 
Xpts = PEspemes-] ©” -+Pinamed 
XptS8regno = Pregno 
Xpt8fFmpssn = Fmpssan 

Locate For Prm = ’e’ .And. Pbed = ‘A’ .And. Pardee ee 
XpeES = PFname — €'° ” +Piname. 
Xpt9regno = Pregno 
Xpt3Fmpssn = Fmpssan 

Locate For Prm = ’e’ ,And. Phed ~ ’B’ .And. Puworoeeeoe 
Xptio = Plaame — € 7) a -trlnenes 
XptiOregno = Pregno 
Xpi0fmpssn = Fmpssan 

Locate For Prm = ’3’ .And. Pbed = ‘A’ .And. Pucrar rc 
Xptil = Pfname - C’ ’ +Piname) 
Xptilregno = Pregno , 
Xpiifmpssn = Fmpssan 

Locate For Prm = ’3’ .And. Pbed = ‘3B’ (And. FPueCa eae 


Xptle =ere nome. sae 
Xptieregno = Pregno 
Xpiefmpssn = Fmpssan 


+Piname } 
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Do Whi 


*x* _— 


Set 
Clea 
ime F 
Set 
Xwd3 
er 


i, 
10 
12 
iS 
LS 
16 
ec 
ee 
Read 


fa fa fa fa fa fa fa fa fo fo) 


“= —— 
* —_— 


le .T. 
Seqeenmelisplau, Savards.Scr —-— 


EQLOpetouwt7 5, U+ 75 

c 

leash=-5.5: Words .Ser/ 2 
Color To W+/B,W+/8 
Spc = 7 

S6 Say Datel) 


2,65 Say Timel) 


Saa7sou Xpt/ 

[39° Sau .ate 

Sol Sau ex Des 

vos) Sau xXpELoO 

_Jo) Soy Appell 

roo Se Ape Le 

,2 Say Curuser 

faveoes AWOSOpt Pict ’°S” Range O,7 


Evaluate action based on the option selected -- 
Store data from Dbf file into variable names -- 


Do Case 


Ca 


Ca 


se Xwd3Jopt = O 
eee On Ute 
Close Databases 
Close Procedure 
Release All 
Return To Master 


se Xwd3opt = il 
* -—-- Patient in room 1 bed A 
Locate For Prm= ’1’.And. Pbed= ’A’.And. Pward= ’°3’ 
Ptregno = Xpt7regno 
Ptselect =; 
PFuard —f° “+PEMms—C.’ Heed. — CC a Bile. 
Gtr pte) Xpt7 
Ptfmpssn = Xpt7fmpssn 
Pe Ourpc. = 7 “ 
Wait "Sorry No Patient In That Bed -; 
- Please Press A Key To Continue” 
Loop 
Emel e 
If Omodule = ”D” 
Do B:Doctor 
Return 


i 


Else 
Do B:Nurse 
Return 
Endif 
Return 


Case Xwd3opt =e 

* =- Potient in seem becca ae 

Locate For Prm= ’1’.And. Pbed= ’B’.And. Pward= tee 
Ptregno = Xpt8regno 
Ptselect; 

PugTars &! oem) =e * +P bedi ate *+Xpts) 

Ourpt = Xpt8 
Ptfmpssn = xXpt8fmpssn 

Le Gur pe = © ui 
Woit "Sorry No Patient In Thotyseda—. 

- Please Press A Key To Continue” 

Loop 

Enagre 

If Omodule = ”"D” 
Do_b: Docror 
Return 

Else 
Do B:Nurse 
Return 

Emcee 

Return 


Case Xwd3opt = 3 
~ -=  POELENt 1M -foOOom ec Dea. aA 
Locate For Prm= ’c2’.And. Pbed™ °A’.And. FPwara= soe 
Ptregno = Xpt3regno 
Ptselect =; 
Pword -C’ *+Premds 6? ’+Phed)— ee '+Xptoe 
Ourpt = Xptg 
Ptfmpssn = Xpt93fmpssn 
lf Gurpe =.” 
Wait "Sorry No Patient In Thats bear 
- Please Press A Key To Continue” 
Loop 
Ena 
fe Bmodule’.*) 2h - 
Do 5B: ecror 
Return 
Else 
Do B:Nurse 
Return 
Endif 
Return 
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Case Xwd3opt = 4% 
* -- Patient in room e@ bed B 


Locote For Prm= ’2’.And. Pbed= ’B’.And. 
Ptregno = XptiOregno 
Ptselect =; 
rugee— C eee ac Ee Degeut ’ 


Guicate=—xXpeLO 
Ptfmpssn = XpiOfmpssn 


he Odin pt os a 
Jie oeGrue NG meerent Im hot Bed —; 


- Please Press A Key To Continue” 

Loop 

Endif 

If Omodule = 
De B-8ector 
Return 

Else 
Do B:Nurse 
Return 

Endif 

Return 


”T) 33 


Case Xwd3opt = S 
* -- Patient in room 3 bed A 


Locate For Prm= ’3’.And. Pbed= ’A’.And. 
Ptregno = xXptliregno 
Ptselect =; 
Puacad—e- To erm 1 C i EnediI—C’ 


CGunpers ADtil 
Ptfmpssn = Xplifmpssn 
heer Dt aes - 


UOten SOTTUNNG Fatient Im That Bed -; 
- Please Press A Key To Continue” 
Loop 
Enaif 


If Omodule = ”D” 
He. B- DOCEGE 
Return 

Else 
Do B:Nurse 
Return 

Endif 

Return 


Case Xwd3opt = 6 
————  Pocient im room 3 bed B 


Eecate Far Poem °3’ .And. Pbed= ’B’ .And. 
Ptregno = Xptleregno 
Ptselect =; 
Pward-C’ hom) — et. “+Pbhed)—([* 


(9 


Puores °3’ 


>+Xpt10) 


Pword= °3’ 


'+Xpt11) 


Puardu= 3 


Pmt led 


QUG DEUS pe le 
Ptfmpssn = Xpiefmpssn 
le Ounrpee =e a 
Wait "Sorry No Patient im het sean 
- Please Press A Key To Continue” 
Loop 
End 16 
If Omodule = ”D” 
No B: BOEGron 
Return 
Else 
Do B:Nurse 
Return 
Engine 
Return 


Case Xwd3opt =~ 7 


* -- Master Screen 
Return 


Endcase 

Release Xwd3opt, xpt7, Xpt6, Xpt9, Xptiod, Xpt11,XxXptie 
Release Xpt7regno, xpt8regno, xXpt9regno, xptliOregno 
Release Xptilregno, Xpticregno, Xplifmpssn, Xplefmpssn 
Release Xpt7fmpssn, xpt8fmpssn, xptS9fmpssn, Xp1l0fmpssn 


Enddo 
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Ht ee DOCTOR i PRG eee Ce SSS SEP TPCT TPP ESET TPT ST PP PPP PRE See OS 


* Author: Gary R. Harmeyer LCDR NC USN 

ee pate: 27 November 1985 

* Screen Generated By: The Software Bottling Company 

“ OF New York, ciSé5 

* Purpose: Menu For selecting, viewing or 
* modifying the doctor’s orders. 
* Input Files Used: DOoctes.- Fg and Prectile,.f-rg 

* Output Files Used: Orders.Dbf 

* Calling Routine: Waede or Ward3s.Prg 

*™ Routine Calls: Doc_menu, Transfer or Discont.Prg 
eemodification Date: 4 February i366 

* 

fee - ocreen [Input Program For Doctor -- 

it 

Do Setup 


Public Xdocopt, Xmptfmpssn, Dmenu 
Dmenu = Spacel1) 


foewnile .1. 


mene oereeneiisplay A:Doctor.Ser -- 


Sec Color fo Wt+/B,W+/B 

Clear 

fer lasht+”"S.A:Doctor .Scr/” 

men Color fo W+/B,W+/B 

MAIGcopt .~.6 

Do Headings 

@ee,67 Get Xdocopt Pict ”"S” Range O,6 
Read 


* -- Evaluate action based on the option selected -- 
Do Case 


Case Xdocopt = O 
eas oom =of fF 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xdocopt = 1 
oa OCOeR ener 
Do B:Doc_Menu 
If Dmenu = ”"1” 

Loop 
Else 


fot 


Return 
Endif 


Case Xdocopt = ec 
* -- Admit / Transfer / Discharge Patient 
Do B: Transfer 
lt Dnente = sb 
Loop 
Else 
Return 
Enq@it 


Case XGgGcopts BB 
* -- Review Medical Orders 
Clear 
Set Colter fo. wUs78B  W+7B 
© 1,@e€ Sau "Patient Oreers Fer: 
Cyl tesa) CUEDE 


@ 3,10 Say "Press -- Ctrl and S -- Keys to Pause ” 


@ 3,47 Say "The Scrolling If Necessary” 

Use B:Orders 

Store ”’” + Ptfmpssn + ”’” To Xmptfmpssn 

Report Form B:Ord For Fmpssn = &Xmptfmpssn 
Module # ’N’ 

Wait 

Loop 


Case Xdocopt = 4 
* == Feint ledical Orders 
@ et.0O Sey *furn On Your Peinter ae 
C@ e4+,ee Say "Then Hit Any Key To Print” 
Set Console Off 
Wait 
Set Console On 
Clear 
@ 12,30 Say "Printing, Please Wait” 
Set Console Off 
Set Device To Print 
@1,éee Say "Patient Orders Fora 
7 ee te sou: Bucs 
Set Device To Screen 
Use B:Orders 
Store ”’” + Ptfmpssn + ”’” To Xmptfmpssn 
Report Form B:Ord Noeject To Print For; 
Fmpssn = &Xmptfmpssn .And. Module # ’N’ 
Set Console On 
@ 24,0 Say “Finished Puintei ogee 
@ e4+,19 Soy "Hit Any Key To Continus” 
Set Console OFF 
Woit 


LeiZ 


.And.; 


Set Console On 
Loop 


Case Xdocopt = S 
* -- Discontinue An Order 
Do B:Discont 
If Dmenu = ”1” 
Loop 
Else 
Return 
Endif 


Coase Xdocopt = 6 
* -—-- Master Screen 
Return 


Endcase 
Release Xdocopt, Xmptfmpssn 


Enddo 
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weee NOC MENU.PRG 3 Oe ee ae 0 Re ie ie ee ie aa ee eae a ae ee 2 ae aa ea a aa oe 


* * © & & & & ee Ee KE 


5 


Author: 
Date: 
Screen Generated Buy: 


Purpose: 

Input Files Used: 
Output Files Used: 
Calling Routine: 
Routine Colled: 


Modification Date: 


Gary R. Harmeyer LCDR NC USN 

27 November 1985 

The Softwore Bottling Company 
OF New York, c1985 

Menu of ten order categories for 
doctor to choose from. 

Doc_Nenu .Scr and Drpreeryers 

None 

HOGCCOG. LLG 

Activity, Diet, IVA,Lab, Monitor, Phaml 
Xray,lLung,VS or Routine.Prg 

4 February 1986 


-- Screen Input Program For Doc_Menu -- 


Do Setup 
Public Xdocmenopt 


Do While .T. 


* -- Screen Display A:Doc_Nenu.Scr -- 


Set Color To Wt+/B,W+t/B 


Clear 


“vt Filash+’ Ss 7A: JDOcltenu.scer7 
set Color To W+t/B,W+t+/B 


Xdocmenopt = 11 
Do Headings 


Read 


@ 22,66 Get Xdocmenopt Pict ”"939” Range O,1¢e 


* -- Evaluate action based on the option selected -- 


Do Case 


Case Xdocmenopt = O 


oS = OG & 6 
Close Databases 
Close Procedure 
Release All 


Return To Master 


Case Xdocmenopt = 1 


Do B:Activity 

If Dmenu = ”1” 
Loop 

Else 
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Return 
Endif 


Case Xdocmenopt =e 
Do B:Dist 
If Dmenu = ”1” 
Loop 
Else 
Return 
Ena2c 


Case Xdocmenopt = 3 
Do B: IVA 
If Dmenu = ”1]” 
Loop 
Else 
Return 
Endif 


Case Xdocmenopt = 4 
Do B:Lab 
If Dmenu = ”1” 
Loop 
Else 
Return 
Endif 


Case Xdocmenopt = S 
Do B:MNonitor 
If Dmenu = ”1]” 
Loop 
Else 
Return 
Endif 


Case Xdocmenopt = & 
Do B:Phaml 
If Dmenu = ”1” 
Loop 
Else 
Return 
Email & 


Case Xdocmenopt = 7 
Do B: Xray 
If Dmenu = ”)]” 
Loop 
Else 
Return 
Eiiga © 


ies 


Case Xdocmenopt = 8 
Do B:Lung 
If Omenu = ”1” 
Loop 
Else 
Return 
Endif 


Case Xdocmenopt = 9 
Do B:VUS 
If Dmenues *1” 
Loop 
Else 
Return 
Endif 


Case Xdocmenopt = 10 
Do B:Routine 
If Omenu = ”1” 
Loop 
Else 
Return 
Endif 


Case Xdocmenopt = 11 
* -- Doctor’s Master Screen 
Dmenu = ”)]” 
Return 


Case Xdocmenopt = 1e 


+ =~ loSCeE. Seeeen 
Store ’ ’ To DOmenu 
Return 

Endcase 


Release Xdocmenopt 


Enddo 
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i it a ACTIVITY «RR 4 HE HE Ae EE RE HE AO A EEE 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 29 November 1985 

* Screen Generated By: The Software Bottling Company 
a” OF New York, c19385 

* Purpose: Determine activity orders of the 
= patient. 

* Input Files Used: AGEIVICU.Screand FProchule.Prg 
* Output Files Used: Orders .DbfF 

* Calling Routine: Doc_Menu.Prg 

* Routine Called: Time.Prg 

Seshoedification Date: 4 February 1986 

ra 

ees ocreen InputeProgram For Activity -— 

* 

Do Setup 


Buolic Xactopt 
Do While .T. 
aoe] ocreen DisplaweA:Activity.Scr -- 


set Color fo Wt/B,W+/B 

Clear 

weer Lash+”’S.A:ASGtivikey.Scr/” 
Set Color To W+/B,W+t/B 
Pactopt = 13 

Do Headings 


Do Startup 

fPeec,55 Get Xactopt Pict ’3S9”" Range 0,14 

Read 

* -—- Evaluate action based on the option selected -- 
Do Case 


Case Xactopt = O 
eae Sram OL f 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xactopt = i 
Morder = "Ambulate ad lib” 
Do Replaord 
Loop 


17 


Case AGctope’=.c 
Morder = "Ambulate w/ Assistance” 
Do B: Time 


Do Case 
Case (Timeopt < S .Or. Timeopt = 41) 
* -- No precise Frequency given 


Passdata.= "051 18” 
Ptpoint = O 

Case C(Timeopt > & .And. Timeopt < 22) 
as ee 
Passdata = ”’QS1 11” 
PEDO ht ee 

Case CTimeopt > 21 .And. Timeopt < 25S) 
* =~ X 2c 
Passdata = ”’Q@51 1e” 
Repeaint: = ot 

Case (Timeopt > et .And. Timeopt < 31) 
hae Xo) OC aD 
Passdata = ”’Q51 13” 
PEnGINnt .= 6b 

Case €Timeopt > 30 .And. Timeopt < 34) 
= = Xa OC sole 
Passdata = "Q51 1%” 
PEpointi = S 

Case CTimeopt.™ 34% .Or. JTimeopt se353 
ia eX OOe aati 
Passdata @ “O51 15” 
PEDO e “ic 

Case Climeopt = 36 .Or. Timeopme-" sa 
SSSR Ole Dmrenen 
Passdata.=..-05!1 16” 
PERG hte = eet 

Case CTimeopt = 38 .Oc. Timeopt)=— 3228 
== Ct. Obata 
Passdata = ”"QS1 17” 
PEnelnee=te 

Endcase 


Do Replaord 
Loop 


Case Xactopt = "3 
Morder = "Strict Bedrest” 
Do Replaord 
Loop 


Case Xactopt = 4 
Morder = "Bedrest w/ BRP” 


rec 


Do Reploaord 
Loop 


Case Xactopt = 5 
Morder = "Bedside Commode” 
Do Replaord 
Loop 


Case Xactopt = 6 
Morder = ”"00B to Stretcher w/ ASsist” 


Do B: Time 


Do Case 
Case CTimeopt < eS .Or. Timeopt = 41) 
* -- Less thon x 3 or TID 


Passdata = "Q51 2” 
Fepoint -=FO 

Cose (Timeopt > 24 .And. Timeopt < 34) 
* -- X 3 or less than GQ4h Cx 6) 
Passdata = "Q51 3” 
Fepoine. = 2 

casencuimeope== 34 .Or. Timeopt = 35) 
= == "X beer Oth 
Possdgatase= "Q51 4” 
Pebes het 92 

Case CTimeopt = 36 .Or. Timeopt 
~e—— Note OGwWen 
BROSSsaotag=— WSi Ss” 
FEepOinkg =—3 

Case (Timeopt = 38 .Or. Timeopt = 39) 
Pe ape te twOr Oi} 
Passdato = "QS1 6” 
FEPOINe »=.716 

Endcase 


" 


a7) 


Do Replaord 
Loop 


Case Xactopt =~ 7 
Morder = "Dangle Legs” 
Do B: Time 
Do Replaord 
Loop 


Case Xactopt = 8 
Morder = "Keep on Back” 
Do Replaord 
Loop 
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Case Xactopt ~ 39 
Morder = "May Shower” 
Do Replaord 
Loop 


Case Xactopt = 10 
MNorder© “lucn) Fatvenc 
Do B: Time 
Do Replaord 
Loop 


Case Xactopt = 11 
Morder = "Turning Frame” 


Do B: Time 
Do Case 
Case CTimeopt < 36 .Or. Timeopt = 41) 
* —-— Less than Qeh 


Passdata = "Qe5 i” 
PeEpeint .~ © 

Case Climeopt#=™36 .Or. Timeant = 3272 
+= ——20en, OF eee 
Passdata = "QeS5 2” 
FEDOn he it 

Case Climeopte= 38 .Or. Timeopt = 339) 
== hs Obeaee + 
Passdatae™ “Q2e5 3” 
PEpOLnEt =ecs 

Endcase 


Do Replaord 
Loop 


Case Xactopt = ile 
Morder = "Up in Chair w/ Assist” 


Do B: Time 
Do Case 
Case CTimeopt < eS .Or. Timeopt = 41] 
* -—- Less than x 3 or TID 


Passdoto = ”"Q51 1” 
Ptpoint = O 
Case CTimeopt > e4% .And. Timeopt < 34) 
* -- X 3 or less than Q4th Cx 6) 
Passdata = "Q5Si 7” 
PEpelhite="-_ 
Case CTimeopt = 34% .Or. Timeopt = 35) 
*)-——)X 6 yoneoan 
Passdata = ”"Q51 8B” 
Ptpoint = 4 
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Cose (Timeopt —- 36 .Or. Timsopt —- 37) 
a-— X lecrorn. Gen 
Possdotovr=""051 3” 
Ptpoint = 8 | 

Case C(Timeopt = 38 .Or. Timeopt = 39) 
a == X etwas ih 
Passdata = "Q51 10” 
FEepoOint = 26 

Endcase 


Do Replaord 


Loop 
Case Xactopt = 13 
* -—-- Poctor’s Order Screen 
Dmenu = ’]’ 
Return 


Case Xactopt = 14% 
* -- Master Screen 
Dmenu = ’ ”’ 
Return 


Endcase 
Release Xactopt 


Enddo 
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eH TIME ; PRG SRE Oe TOE SAE RE SRE UE SUE AOE RE AEE AE OE ae RE OE SE EE RE SRE A SRE EOE ARE AE ESAS aa ae oat 


* Author: Gary R. Harmeyer LCDR NC USN 

* Date: 293 November 1985 

* Screen Generated By: The Software Bottling Company 

- Of New York, c1985 

* Purpose: Determine the time of orders for 
- the patient. 

* Input Files Used: Time.Scr and Prectulewead 

* Output Files Used: None 

* Colling Rovuerne: All Orders and Necaredb.Dbf modules. 
* Routine Called: Timehelp.Prg 

* Modification Date: + Pebrvarty = lose 

& 

* -=— SEreen 1npUc. Procranerens noes 

Do Setup 


Public Timeopt, Xtimetime 
Xtimetime = Spacel't) 


Do While .T. 


- —— SelCeny tsp Guan. ine. SCs 


Set Color To W+/B,W+/B 

Clear 

ee? Pilash+ S.A] lime. sce © 

Set Color ta+us/B. U+t/7e 

Timeopt = 41 

Do Headings 

GC e€2&,66 Gee Timeopt Pict “SS” Rangs 2a 
Read 


* -- Evaluate action based on the option selected -- 
Do Case 
Case Timeopt = 1 
Ofreq = ”"PRN” 
Return 
Case Timeopt = e 
GErea 4 Gelac Heaern 
Return 
Case Timeopt = 3 


Ofreq = °Q) 2-3 He ERN | 
Return 
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Case Timeopt = 't 
SEGeq7s+) 6 S-t He PRN™ 
Return 


Case Timeopt = 5S 
tierce ge= «Oi geal)” 
Tedavonly ee e'T” 
Return 


Case Timeopt = 6 
Bereq =) "OD" 
Return 


Case Timeopt = 7 
Ofreq %& °HS” 
Return 


Case Timeopt = 86 
BEreg?*™ "x 1” 
hegageniu.. “I” 
Return 


Case Timeopt = 9 
2a today 2 —--— 
@ 17,8 Get Xtimetime Pict ”9999” 
Read 
Ofreq = "Today © ” + Xtimetime 
Todayonly = ”T” 
Return 


Case Timeopt = 10 
Ofreq = "Daily @ O200” 
Return 


Case Timeopt = 11 
BeEreqg =F *Dailu © O400” 
Return 


Case Timeopt = 1e 
Ofreq = "Daily @ O600” 
Return 


Case Timeopt = 13 
Ofreq = "Daily @ O800” 
Return 


Case Timeopt = 14 


Greg = “Daily © 1000” 
Return 


8 


Case Timeopt = 1S 
Ofreg = “Doeily Cel2ze0. 
Return 


Case Timeopt = 16 
Ofreq = "*Bailu C2300, 
Return 


Case Timeopt = 17 
OfFreq = "Dolily €le0e- 
Return 


Case Timeopt = 18 
Ofreq = "Daily @ 1800” 
Return 


Case Timeopt = 19 
Ofreq*= “Daily © e000” 
Return 


Case Timeopt = 20 
Ofreq = "Daily @ 2200” 
Return 


Case Timeopt = 21 
OF regs =™- baw) gy, Ce 00” 
Return 


Case Timeopt = ee 
Of Geqr= BID 
Return 


Case Timeopt = 23 
QRGeGG* =) Ble ne 
Return 


Case Timeopt = e4 
Ofrequ=. <a” 
Todayonly: =. "1" 
Return 


Case Timeopt = eS 
BEreq =)" Lib 
Return 


Case Timeopt = ¢e6 


Ofreq = »AC” 
Retucn 
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ell 


fase Timeopt = e7 
Ofreq = »PC ” 
Return 


Case Timeopt = cB 
meeeqg = “8 .8 Hr” 
Return 


Coase Timeopt = 23 
HEreaey. <x 3” 
Todayenly @* °*T” 
Return 


Case Timeopt = 30 
erreq = “W Shift” 
Return 


Case Timeopt = 31 
Geecoes» CD” 
Return 


Case Timeopt = 3e 
HEreq«.°0O & Hr” 
Return 


Case Timeopt = 33 
ince = xt” 
Todayoniy =m ”"T” 
Return 


Case Timeopt = 34 
HReeq > "O° Hr” 
Return 


Case Timeopt = 35 
SeGeq = 9.x. 6" 
BOaagoniy = °T” 
Return 


fase Timeopt - 36 
eeecge@ 2 He” 
Return 


Cose Timeopt = 37 
GGreq =. “x ic” 
Todayonly = "T” 
Return 


ie 


Case Timeont = 2o 
Ofreq = “G1 he. 
Return 


Case Timeopt = 39 
Ofreq PA "x > 2A 
Tedayonlge— ts 
Return 


Case Timeopt = 40 
*.=--— Help 
Do B:Timehelp 
Loop 


Case Timeopt = 41 
* =— Rectucm to Calling Sereen 
Return 


Endcase 
Release Xtimetime 


Enddo 
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He He He TIMEHELP j PRG ie AE Ae AE Re RE ARG ARE Ne AE EAE RE RE a AE ae RE ae AE SEA ARE ie AE AE RE RE a RE a he a ae a at 


Author: 
Date: 
Screen Generated By: 


Purpose: 


Input Files Used: 
Output Files Used: 
Balling Routine: 
Routine Called: 
Meaieication Date: 


* * © *€ © & & & 8 He KF RH & 


Do Setup 


Do While .T. 


Gary R. Harmeyer LCDR NC USN 

1 December 1985 

The Software Bottling Company 
Ge New rerk, cl1S85 

Brief Omeline help Facility for 
Time.Prg. 

Timehelp.Scr and Procfile.Prg 

None 

Time.Prg 

None 

26 January 1986 


-- Screen Input Program For Timehelp -- 


See JCreen Disploy A:Timehelp.Scr -- 


see Coler Toa W+/B,W+/B 


Clear 


?? Flasht’”S.A:Timehelp.Scr/” 


ect, 0 


@ 24,37 "Press Any Key To Continue” 


Set Console Off 
wet t 

Set Console On 
Return 


Enddo 


Oi 


Mt at tt DIET.PRG ee eee eee ee ee ee eee ee eee ee ee ee 2 ee ee ee 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: C7 November 19865 

* Screen Generated By: The Software Bottling Company 
- | OF New York, ci385 

* Purpose: Determine the diet orders of the 
a BGELenc- 

* Input Files Used: Diet .Scr and Preochite: ad 

* Output Files Used: Orders.Dbf 

* €aliling Revitine: Doc_Menu.Prg 

* Routine Called: Time.Prg 

*/Mogdllicetionepate: 4 February 1986 

* 

* =-- Screen [Input Progean For Dict=.- 

i 

Do Setup 


Puol2 Gr. O1eLope 


Do Wine a. 


* == Screen Display A: Diet. Scr as 


Set. Coloc TO W+75.U+75 
Clear 

ce Fl@Sht sos -ASUilet. ser: 
Set Color To W+/B,W+/B 
Adistopt*=..13S 

Do Headings 


BO StGEEUD 

@ ee 66 Get Xdietopt Pict *93S) Range © 26 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Case Xdietopt = O 
+ => Siero c 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xdietopt = 1 
Morder = "Diet As Tolerated” 
Do Replaord 
Loop 
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Case Xdietopt = ec 
Morder = "Clear Liquids Diet” 
Do Replaord 
Loop 


Case Xdietopt = 3 
Morder = "Diabetic Diet” 
Do Replaord 
Loop 


Case Xdietopt = 4 
horder =" Fot-eontrolled Biet” 
Do Replaord 
Loop 


Case Xdietopt = S 
fordenr =" Full Liquid Diet” 
Do Replaord 
Loop 


Case Xdietopt = 6 
Morder = "Infant/Neonat Bottle x1” 
Passdata = "0e9 1” 
Renoina. c 
Do Replaord 
Loop 


Case Xdietopt = ” 
Morder = "Infant/Neonat Bottle x6” 
Fossdata* “eS 2” 
PepOoine = te 
Do Replaord 
Loop 


Case Xdietopt = 8 
Morder = "Infant/Neonat Bottle xic” 
Passdata = "Qe9 3” 
PEpOInNt®=8#et 
Do Replaord 
Loop 


Case Xdietopt = 9 
Morder = "Mechanical Soft Diet” 
Do Replaord 
Loop 


Case Xdietopt = i0 
neander =. Na Controlled Diet” 
Do Replaord 
Loop 


fo 


Case Adietopt -~“ 71 
Morder = ”NPO” 
Do Replaord 
Loop 


Case Xdietopt = ile 
Mordec = “NFO pic2oe- 
Do Replaord 
Loop 


Case Xdietopt = 13 
Horder = “NFO? U7 Vlece Enlos: 
Do Replaord 
Loop 


Case Xdietopt = 14 
Morder = "Regular Diet” 
Do Replaord 
Loop 


Case Xdietopt = 15 
Morder = "*Renal/Liver Disease Diet” 
Do Replaord 
Loop 


Case Adietont ™ 1b 
Morder = "T & A Diet” 
Do Replaord 
Loop 


Case Xdietopt = 17 
Morder = "Continuous Tube Feedings” 
Do B: Time 


Do Case 
Case Climecpt < 6&6 .0Or. Tfimecstyeea.) 
* == Less than 1 bag per el erovrcs 


Passdato @ "Qe7 1” 
Lepoince= oO 

Case CTimeopt > S .And. Timeopt < 22) 
* —— | Dag? per etencues 
Passdato,= UEe7 7c. 
PEDOH hc Sc 

Case C(Timeopt > 21 .And. Timeopt < eS) 
* —— e€@ bags “per et vnacucs 
Passdata = "Qe7 3” 
Ptpel mites 

Case CTimeopt > e@4+ .And. Timeopt < 31) 
* =— 3 bags per ect hetcs 


200 


Passdota = "Q2e7 4” 
Pepe ine. = 6 


Case C(Timeopt > 30 .And. Timeopt < 34) 


“aaaeet DOGS Per ex Nours 
Possogdtee=  Ge7ss | 
FEpeinte =—6 

Case CTimeopt = 34 .Or. Timeopt 
* -- 6 bogs per ect hours 
Passdata = "Qe7 6” 

BeEpenicae= Le 

Case C(Timeopt = 36 .Or. Timeopt 
* —-- le bags per ect hours 
Passdato = "Q27 7” 

Fepeant = 24 

Cose CTimeopt = 38 .Or. Timeopt 
= —=-— e€2 bags per ct hours 
Passdata = "027 B” 

FeEpoint =-=46 
Endcase 


Do Reploaord 
Loop 


Case Xdietopt = 18 
Morder = "Bolus Tube Feedings” 
Do B: Time 


Do Case 
Case CTimeopt < 34 .Or. Timeopt 
* -- Less than Q4h or x 6 


Fassdota ~~ “27 3” 
Ptpoint = O 

Case CTimeopt = 34% .Or. Timeopt 
oe Othor. x G 
Passdata = "027 10” 
Fepoint = -S 

Case CTimeopt = 36 .Or. Timeopt 
SG OG x le 
Fassgorta =" "Qe7 11” 
BenOintc =—10 

Case (Timeopt = 38 .Or. Timeopt 
2 — Gt heer x et 
Possdoata = "027 1e” 
Pepeaint & 20 

Endcase 


Do Replaord 
Loop 


Ao 


35. 


ay) 


ao 


ao 


a5) 


a7) 


Biel s 


Case Xdietopt = 19 


* -- Doctor’s Order Screen 
Dmenu = ”l]” 
Return 


Case Xdietopt = eOd 
* -- Master Screen 
Dmenu = ” ” 
Return 


Endcase 
Release Xdietopt 


Enddo 
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i HH IVA PRG He Ae AE AE EE Ae ARE a AE ae RE RE Sa RE 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 8 December i985 

* Screen Generated By: The Software Bottling Company 
3 . SEeNeWe YOR sei 985 

* Purpose: Determine first stage IV needs of 
= the patient. 

* Input Files Used: IVA.Scr and Procfile.Prg 

* Output Files Used: None 

Zeegiling Routine: Doc_Menu.Prg 

* Routine Called: IVUB.Prg 

eemedification Date: 4 February 1986 

& 

foe ocreen Input Program For IVA -- 

* 

Do Setup 


Public Xivaopt,Morderi 


Boewhile .1T. 


*=—- Sereen Display A:IVA.Scr -- 


set Color To W+/B,W+/B8 
Clear 

?? Flash+”S.A:IVA.Scr/” 
Set Color To W+/B,W+/B 
Xivaopt = Og 

Do Headings 


Do Startup 

Peee,o6 Get Aivaept Pict ’99” Range 0,10 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Case Xivaopt = O 
ea oO Lgm—-OFE 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xivaopt = 1 
hNerdesci™ ’Start [VU of” 
Passdata = ’Q30 1” 
Fepoint = ¢ 
Me cleat) Seon 
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Do BTUs 
Loop 


Case Aiveope =re 
Morderl = "Alternate IV w/” 
Do B: IUB 
Loop 


Case Xivaopt = 3 
Morderl = "Follow IV w/” 
Do B: IVB 
Loop 


Case Xivaopt = 4 
Morderi = "Interrupt IV for” 
Do B: IVB 
Loop 


Case Xivaopt = 5 
Morderl = "Start end IV of” 
Passdata = ”"Q30 1” 
PEpOi wee © Je 
Ledatoniluer = i” 
Do B: IVB 
Loop 


Case Xivaopt .=.6 
Morder = "Discontinue [V” 
Do Replaord 
Loop 


Case Xivaopt = 7 
Morder = "Heparin Lock” 
Passdata = ”"Q73 1” 
Ptepoaint » 4 
Do Replaord 
Loop 


Case Xivaopt = 8 
Morder = "Multilumen Line” 
Passdata = ”"07e 3” 
PEpOt nese 
Do Replaord 
Loop 


Case Xivaopt = 9 
* -- Doctor’s Order Screen 
Dmenu = "1” 
Return 
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Case Xivaopt = 10 
* -- Master Screen 
Dmenu = ” ” 
Return 


Endcase 
Release Xivaopt 


Enddo 


ae 


HM Mh IUB : PRG He Re A AE AE HE AE AEE Ue AE AE EE AEE UE RE HE RE REE EEE ERE Ee A aa a aE 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 8 December 1985 

* Screen Generated By: The Software Bottling Company 
* OF New York, c198S5 

* Purpose: The doctor selects an IV solution 
” For the patient. 

* Input Files Used: IVB.Scer and Prochi ferred 

* Output Files Used: None 

* Calling Routine: IVA.Prg 

* Routine Called: None 

* leadiricebion- bete: 19 February 1986 

cd 

* =— Scceen. lmpuc FProgsom: roce.Jbe.. 

Fd 

Do Setup 

Public Xivbopt, Blood 

Blood = —.F . 


Do While .T. 


* -- Screen Display A: IVB.Scr -- 


Se Galore -W+/73-wU+/B 
Clear 

7? Plasn+ sence VBcSeg 7” 
Set Cooler To W+/B,W+/75 
Xivbopt == 1 

Do Headings 

C ee,67, Get XivbOpE rice 
Read 


”"9” Range 1,8 


* -- Evaluate action based on the option selected -- 


Do Case 


Case Xivbopt = 1 
Morder = Morderi + 
Do B: IVC 
Return 


* 057-45 Ncen. 


Case Xivbopt = 2 


Mercec®™ Morderl + ” RL” 
Do B: IVC 
Return 
Case Xivbopt = 4a 
Morder = Morderi + ” DSRL” 
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ows: LUG 
Return 


Case Xivbopt = 4 
DEG er. neeGe tr 1 
He S57 1Ve 
Return 


Case Xivbopt = 5S 
Morder = Morderl 
Do B: IVC 
Return 


Case Xivbopt = 6 
Morder = Morderil 
Hee: (VE 
Return 


Case Xivbopt = 7 
Morder =~ Morderi 
Beoog = ..1. 

Do B: IVC 
Return 


Case Xivbopt = 8 
Morder = Morderl 
Blood =< .t. 
Beye: IVC 
Return 


Endcase 
Release Xivbopt 


Enddo 


DSW” 


NS »? 


HSNS ” 


Whole Bld” 


Packed Cells” 


2OK7 


Mt He He IVUC.PRG ie ie Ae a hE A a ARE Re RE SEE ae SEE AE AER RE ERE A ES aE RE at a ae ae a SE at Eat a a ae ee te ae oe 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 8 December 1985 

* Screen Generated By: The Software Bottling Company 
= OF New York, ci38S 

* Purpose: Determine IV infusion rate for 
* patient orders. 

* Input Files Used: IUC .Scr and Precl i terrae 

* Output Files Used: None 

= Calling Routine: LUBA EEG 

* Routine Called: None 

* Modification Date: 4% February 1966 

- 

*-- Screen input FPregsan Reger ea. 

ae 

Do Setup 


PUBLTEe eAnVeCODt 


Do While .!. 


* -- Sereen Bisplay ACE .scr-—- 


Set Color fa W+/Bw+78 

Clear 

ee PF least “Sh. 1 VE 2Scer/ ” 

Set Celor, lo w+/s ws78 

XI VECOOe =o 

Do Headings 

@ ee,6/7 Get Aivcopt Pict ’S” Range ws 
Read 


* -- Evaluate action based on the option selectedaa. 
Do Case 


Case Xivcopt = 1 
Ofreq = "Infuse o 30M” 
Pes Blacd Hye. 7 ; 
Passdata = ”"Q75 1” 
PECoine  PegOimne. tec 
Else 
Passdata = “O7e332 
PEpor nee “ve Cpeime a. 
Email 
Do Replaord 
Return 


Case Xivcopt =e 
Ofreq = "Infuse o 1Hr” 
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Pe Bieod =: 1+ 
Passdata = ”Q75 1” 
BeEDOLNG =e CDOLmt 6+ 6c 
Else 
Passdata = "Q7e 3” 
BeEsoint & (P cpOlMne 1s & 
Ena ir 
Do Replaord 
Return 


Ease Xivcopt = 3 


Ofreq = "Infuse o ecHr” 
PEwbLood 2": 1. 
Passdata = ’Q7S 1” 
BENOInt * PEpOlnt + ce 
Else 
Passdata = ”"Q72 3” 
PEpeine = FEpeint + 8 
Endif 
Do Replaord 
Return 


Case Xivcopt = 4 


Gareqg © “Infuse o tHr” 
feeoLood = .!I. 
Rassageca,= “O75 1” 
Peecinc.™ PEpOInt + 2 
Else 
Passdata = "Q7e 3” 
PeEpOlntc es LDGInNt + 6 
Endif 
Do Replaord 
Return 


Case Xivcopt = 5S 


Ofreq = "Infuse o 6Hr” 
moesscata = "Q7e ec” 
mepoimnte = Ptpoint + & 
Do Replaord 

Return 


Case Xivcopt = 6 


Ofreq = "Infuse o S8Hr’” 
Passdata = "Q7e 2” 
BRepoumt —“~PEDGInAEy > 6 
Do Replaord 

Return 


Case Xivcopt = 7 


OfFreq = "Infuse o 12H” 
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Passdatar= “O7eal. 
Ptpoint = Ftpol meee 
Do Replaord 

Return 


Case Xivcopt = @ 
Ofreq = "Infuse o e4H” 
Passdata = "Q7e 1” 
Ptpeint = FEpol nee 
Do Replaord 
Return 


Endcase 
Release Xivcopt, Blood 


Enddo 


ZAe@ 


He He MH MH LAB : PRG We We We ee Me NE AE Ae TE HE NE Me ae Ae ie ee ee Eee eae ee 


Author: 
Date: 
Screen Generated By: 


Purpose: 


Input Files Used: 
Output Files Used: 
Calling Routine: 
Routine Called: 
Mooie-ication Date: 


** &*& *e € ek tk eH HR OK & 


* 


Do Setup 
mepiic Xlabopt 


Do While .T. 


Gary R. Harmeyer LCDR NC USN 

8 December 1985 

The Software Bottling Company 
OF New York, c1985S 

Determine laboratory orders of the 
patient. 

Peo. oece Gnd Prectiise.Prg 

Orders.Dbf 

Doc_Menu.Prg 

Time.Prg 

4 February 1986 


meee reen Imput Program For Lab -- 


* -- Screen Display A:Lab.Scr -- 


set Color fo W+/B,W+/B 
Clear 
faoervasn+”’S.A:Lab.Scr/” 
set Color To W+/B,W+/B 
AopOopt.— 3c 

Do Headings 


Bo, startup 

Geee,o6 Get Xlabopt Pict ”’SS” Range 0,33 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Case Xlabopt = O 
a aon Oc.c 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xlabopt = 1 
fender @—- Bilirubin” 
Do B: Time 
Do Labcount 
Do Replaord 
Loop 


Ziel 


Case Xlabopt =e 
Morder = ”BUN” 
Do B: Time 
Do Labcount 
Do Reploord 
Loop 


Case Xlabepe = 3 
Morader = "Colcecium” 
Do B:Time 
Do Labcount 
Do Reploord 
Loop 


Case Xlabopt = 4 
Morder = "Cloride” 
Do B: Time 
Do Labcount 
Do Reploord 
Loop 


Case Xlabopt = 5 
Merder = “luc” 
Do B: Time 
Do: Labeount 
Do Replaord 
Loop 


Case Xlabopt = 6 
Morder = "Creatinine” 
Do B: Time 
Ye ,Labeount 
Do Reploaord 
Loop 


Case Xlabopt = 7 
Mordercr @ *Glucose” 
Do B: Time 
Do, Labecunt 
Do Replaord 
Loop 


Case Xlabopt = 8 
Morder = "*Phosphate” 
Do B: Time 
Do Labcount 
Do Reploord 
Loop 


2Age 


Case Xlabopt = 9 


Morder = ”Potassium” 


Do B:Time 
Do eabecount 
Do Replaord 
Loop 


Case Xlabopt = 10 


Morder = "Sodium” 


Do B: Time 
Do Labcount 
Do Replaord 
Loop 


Case Xlabopt = 11 


Morder = "Uric Acid” 


Do B: Time 
Dar eabeountc 
Do Replaord 
Loop 


mase XAlaboopt =" 1c 


Morder = "Amylase” 


Do B: Time 
Do Labcount 
Do Replaord 
Loop 


Case Xlabopt = 13 
nNecaec = "CPK” 
Do B: Time 
Bo Labcount 
Do Replaord 
Loop 


Ease Xlaboept =v it 
Geer, 7 2BH” 
Do B: Time 
Hor Labecournt 
Do Replaord 
EGes 


Case Xlabopt = 15 
facade, == -SGOT” 
Do B: Time 
DoOweaseoatint 
Do Replaord 
Loop 


Zs 


Case Xlabopt = 16 
Nerden. = =SGre, 
Do B: Time 
Do Labcount 
Do Replaord 
Lecp 


Case Xlabopt ae 
Merder.=) Ese 
Do B: Time 
Do Labcount 
Do Replaord 
Loop 


Case Xlabopt = 18 
Morder = ”"Platiets” 
Do B: Time 
Do Labcount 
Do Replaord 
Loop 


Case Xlabopt = 19 
Merder*=) “Pratime” 
Do B: Time 
Do Labcount 
Do Replaord 
Loop 


Case Xlabopt = 20 
Morder = "Sed Rate” 
Do B: Time 
Do Labcount 
Do Replaord 
Loop 


Case x~Foabent ™ el 
Morder = "ABO & Rh” 
Do B:Time 
Do Labcount 
Do Replaord 
Loop 


Case Xlabopt = ee 
Morder = "ABG CFrom A-line)” 
Do B:Time 
Do Labcount 
Do Replaord 
Loop 
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Case Xlabopt = 23 
Morder = "ABG Cstick)” 


Do B: Time 

Do Case 

meease (xtimeopte < e5 .Oc. Xtimeopt = 41) 
* -- Less than x 3 or TID 


Passdata = "Q4Y4S 1” 
BenGint so 

Case (Xtimeopt > e4% .And. Xtimeopt < 34) 
-—-— « Jeelieeror less than @4h Cx &) 
Passdato =, "GYS ec” 
Resoince =e 


Case (Xtimeopt = 34% .Or. Xtimeopt = 35) 
= 1G@4h Or x 6 
Passcocta = 7-045 3” 
Reeeinicr = -t 

Case (Xtimeopt = 36 .Or. Xtimeopt = 37) 


Sea wem Oc x Le 

Fossoetar= “O45 4” 

PEepoine. 2 6 

Case CXtimeopt = 38 .Or. Xtimeopt = 39) 

Sea neer. x ct 

Fosseato * "O45 5” 

PEpGince = iG 

Endcase 


Do Replaord 
Loop 


Case Xlabopt = e4 
Morder # "Bid Cultures” 


Do B: Time 
Do Case 
Cose (Xtimeopt < eS .Or. xXtimeopt = 413 
wee hess. tman * 3S or TID 


Passdata = "046 1” 
FEnOI nt + O 

Case (Xtimeopt > e4+ .And. Xtimeopt < 34) 
[eres Cll) er less than Cth Ex 6) 
Possagota == “WS6b 2” 
RepeinGe Cc 

bese stAcimeopt = 34 .6c. Xtimeopt ~ 35) 
oo thwOb x 
Passdata = "O46 3” 
PEDOInNG.—s.4 

Case (Xtimeopt = 36 .Or. Xtimeopt = 37) 
a Oe ah x iC 
bosscduca =) Gta 4+” 


ZnS 


ELQUGLne sao 


Case (Xtimeopt ~ 38 .Oc-. Xtimeopew sso. 


* =>O01n Or x es 

Passdata = "Q46 5S” 
| PepOlne t= b 
Endcase 


Do Replaord 
Lea o 


Case Xlabopt = e5 


Morder = "Culture & Sen” 
Do B:Time 

Do Labcount 

Do Replaord 

Loop 


Case Xlabopt = 26 


Moerdec+=s "“Cald Ag@glutins” 
Do B: Time 

Do Labcount 

Do Replaord 

Loop 


Case Xlabopt = 27 


Morder’m™.”HCG” 
Do B: Time 

Do Leabcount 

Do Replaord 
Loop 


Case Xlabopt = 28 


Morder == Occ Bld in Scools” 
Do B: Time 

Do Labcount 

Do Replaord 

Loop 


Case Xlabopt = 29 


Morder * Krk” 
Do B: Time 

Do Labcount 

Do Replaord 
Loop 


Case Xlabopt = 30 


Morder @= "SMA 6” 
Do B: Time 
Do Labcount 
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Do Replaord 
Loop 


Case Xlabopt = 31 
Morder = "UA” 
Do B: Time 
Pow labecount 
Do Replaord 


Loop 
Case Xlabopt = 32 
-e—> UOocter’s Order Screen 
Dmenu = ’]’ 
Return 


Case Xactopt = 33 
* -—-- Master Screen 
Dmenu = ’ ”’ 
Return 


Endcase 
Release Xlabopt 


Enddo 


Zi, 


i te Me LUNG.PRG Rt MMe Be AE OG UE UE ae A 20e Oe Re IRE Ne ME AE IRE IO OE UE AE IE 0k BOE ate HOE IRE IRE TOE RE UE AE a a ae AE Oe 20 ae a 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 23 November 1985 

* Screen Gensratsed By: The Softwars Bottling Company 
* OF New York, c1985 

* Purpose: Menu providing respiratory therapy 
= options. 

* Input Files Used: Lung.Ser and Proc&itesrnd 

* Qutput Files Used: Orders.DbfF 

* Calling Routine: Doc_MNenu.Prg 

* Routine Called: Time.Prg 

* Modification Date: 2B January 1986 

* 

*-=-— -Sereen, Input. Progroem fore Ungmas 

i 

Do Setup 


Public Xlungopt,Xliteropt,xXliter 
De White <1; 
* => Sereen Display A: Lung.Sen <a 


See Collar to Wt7B. Wt/7B 
Clear 

Ceur bash oR eum «oer? 
Set Color To W+/B,W+/B 
Alungape <= 14 

Do Headings 


Ve“ Stearcup 

© 2-1,66 Get Xlungopt Pict “SS” Kargerort> 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Case Xlungopt = O 
- —— SvoneOer 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xlungopt = 1 
Morder = "Chest Pulmonary Therapy” 
Do B: Time 


Do Case 
Case CTimeopt < ee .Or. Timeopt = 41) 


eae 


"—eecless than BID or x 2 
Passdata = "Q68 1” 
Pepeint = 7 

Case (Timeopt > @1 .And. Timeopt < 25) 
fe-—- BIDZer xc 
Passdata = ”"Q68B ce” 
FEDD Lhe ae 

Case (Timeopt > e4 .And. Timeopt < 31) 
Seo iD yor x) 3 
Passdatea = "O66 3” 
PenG@inc = 

Coase CTimeopt > 30O .And. Timeopt < 34) 
a e= Qligor x 4 
Passdata = "Q6B8 %” 
Peper ht. =t 

Case CTimeopt = 34% .Or. Timeopt = 35) 
oe father «<.6 
Passdata = "Q68 5S” 
Pepeint = 6 

Case CTimeopt = 36 .Or. Timeopt = 37) 
=. —-—=esech ore. ie 
Passdata = "Q68 6” 
Fepoime = le 

Case CTimeopt = 38 .Or. Timeopt = 39) 
oe Glee x ct 
Passdata = "Q658 7” 
eae ate ae 

Endcase 


Do Reploord 
Loop 


Case Xlungopt =e 
Morder = "Cough & Deep Breath” 
Do B: Time 
Do Cough 
Do Replaord 
Loop 


Case Xlungopt = 3 
Morder = "Incentive Spirometer” 
Do B:Time 


Do Case 
Case CTimeopt < 31 .Or. Timeopt = 41) 
“o—- sess than O@4n ors 


Passdota = "Q64% 1” 
Tepolne.— oO 

Case (Timeopt = 34% .Or. Timeopt ~ 35) 
nes ath Or ex & 
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Passdato = Gba7e 
PEpOiwee =e 

Case CTimeopt = "36 — cr. 
* == Q2Ch Cal te 
Passdata =" 7G52esa— 
PEpOine =a 

Case CTimeopt = 287, en- 
* == D1 1@Ge<we. 
Passdato “206702 
Prooine = & 


Endcase 


Do Replaord 
Loop 


Case Xlungopt = 4 
Morder = "IPPB” 
Do B: Time 


Do Case 


Case ClTimeopt < ee .Or. 
* -- Less than BID or 
Passdatao = ”"Q66 1” 
PEDO nts .o 


Coase CTimeopt > 21 .And. 


7S — ot Ors ee 
Passdata = ”"Q66 e” 
FEDOING =e 


Case CTimeopt > ec4 .And. 


= peor eae 
Passdata = "Q66 3” 
TPEDot hee so 


Case CTimeopt > 30 .And. 


mo = MT ieere xa ot 
Passdata = "Q66 *¢” 
Piped =) 

Case CTimeopt =~ 34 .O0Or. 
* == SOI OF x. bo 
Passcdatase=] “O66 Ss 
PEnpOinGe "s G 

Case CTimeopt = 36 .Or. 
62 —— Se) OG esa 
Passdata = "Q66 6” 
FEROI ne: = te 

Case CTimeopt = 38 .Or. 
“=> Gn Or xe 
Possdatoa =" “86607 © 
PEpOihce= eo 


Endcase 
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Timeopt #7373 


Timeope =s2S2 


Timeopt = 413) 


xe 


Limneent eens 


Timeopt < 31) 


Timeopt < 34) 


Timeopt #353 


Timeopt =8371 


Timeopt = 39) 


Do Replaord 
Loop 


Case Xlungopt = S 
nNOLaee = “~“SuUcCELonInNg ” 


Do B:Time 
Do Cas: 
Case (Timeopt < 34 .Or. Timeopt = 413 
* -- Less than Q4h or x 6 


Passdata = "’Q69 1” 
FENDIinNEG © 

fase Climecpea S92 .0f. Timeopt = 35) 
= —=— OQO4n ger <6 
Passdoata = "Q69 2” 
Pee tne Sac 

Case C€(Timeopt = 36 .Or. Timeopt = 37) 
27 en Gerx, te 
Passdata = "Q68 3” 
FEepgerne = 64 

Case CTimeopt = 38 .Or. Timeopt = 39) 
foo ee Lh ob Xe 
Passdata = "Q68 %” 
Prneint =o 

Endcase 


Do Replaord 
Loop 


Case Xlungopt = 6 
Morder = "Trach Core” 


Do B: Time 
Do Case 
Case CTimecpt < eS .Or. Timeocpt = 41) 
* -- Less than TIO or x 3 


Passdata = ”’Q@70 1” 
PEnei ne = O 

Case C€Timeopt > 24 .And. Timeopt < 34) 
=. —-— ti DGGx< 3S) or tess than Oth [x 6) 
Passdata = ”"Q@70 e” 
FEpeinke = 4 

Case Climecpts<"34 .O0r. Timeapt = 35) 
*- 462A or < 6 
Passdata = ”’Q70 3” 
PeEnoine = oc 

Ease €fimeopt = 326 .Gr. Timeopt = 371] 
Gent OoL « 12 
Passdota = ”’@70 4%” 
Pepe mite =). G 


ee 


Case CTimeopt =’ 38 .Or. Timeocset paroee 
*-=="O1hver <8es 
Passdata = ”"Q70 5” 
Propolis) se 
Endcase 


Do Replaord 
Loop 


Case XAlungopt = 7 
Morder = "Ventilator” 
Passdata = "71 1” 
Ptpoint = 10 
Do Replaord 
Loop 


Case Xlungopt = 6 
Morder = "Wean from Ventilator” 
Do B: Time 
Do Replaord 
Loop 


Case Xlungepnt = 3 
Do Liter 
MNorder = “Croup fent ° + Xliver 
Do B: Time 
Passdata = "067 1” 
PEDO heen 
Do Replaord 
Loop 


Case Xlungopt = 10 
Hest Tees 
Merder”= “Mask ” + Xliter 
Do B: Time 
Passdata = "0653 1” 
PEDGi RES oc 
Do Reploord 


Loop 
Case Xlungopt = 11 
Do Liter 
Morder = "Nist Tent ” + Xl) ter 
Do B: Time 


Passdata = ”"Q67 2” 
PEsol nee“ 

Do Replaord 

Loop 


Cea 


Case Xlungopt = le 
Do Liter 


Morder = "Nasal Prongs ” + Xliter 


Do B: Time 

Passdata = "063 1” 
Lepernt = c 

Do Replaord 

Loop 


Case Xlungopt = 13 
Do Liter 


Morder = "Oxyhood ” + Xliter 


Do B: Time 

Passdata = "063 ce” 
EeEpoOine = ce 

Do Replaord 

Loop 


Case Xlungopt = 14 
* -- Doctor’s Order Screen 
Dmenu = °*1’ 
Return 


Case Xlungopt = 15 
* -- Master Screen 
Dmenu = ~° ’ 
Return 


Endcase 


Release Xlungopt, xXliteropt, Xliter 


Enddo 


Zoe 


+ oe MONITIOR.PRG te He He MM Me He He Me He He MM He he eM he he he a Ee eH 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 8 December 1985 

* Screen Generated By: The Software Bottling Company 
7 Of New York, c198S 

* Purpose: Determine monitoring orders of the 
* patient. 

* Input Files Used: Monitor .Scr and Procki tema 
* Output Files Used: Orders .Dbf 

* Calling Routine: Doc_Menu .Prg 

* Routine Called: Time.Prg 

* Modification Date: 4 February 1986 

-e 

*% 


== Screen input Program for Hoanlte nas 
a 

Do Setup 

Public Xmonopt 


He White a. 
* == Screen Displey A:Moniter -Ser .. 


Set Color To Wt/B,W+/B 
Clear 

ee Pla@sn+ S.A 1OnLeer ,oce/ 
Set Color fo Wt78.wW+/7s 
XmoOnopt s=-19 

Do Headings 


DO Scearcun 

@ 22,66 Get Amonopt Pict “SS” "kange” o.ce 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Case Xmonopt = O 
= some Or E 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xmonopt = 1 
Morder = "Apnea Monitor” 
Passdata = ”"Q83 1” 
Monpoint = 6 
Do Replaord 
Loop 
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Case Xmonopt =e 
Morder = "A-line Set-up” 
Passdata = "015 1” 
Ptpointwe’ + 
Toqavenle = i. 
Do Replaord 
Loop 


Case Xmonopt = 3 
Morder = "A-line Readings” 


Do B: Time 
Do Case 
Case CTimeapt < 36 .Or. Timeopt = ‘t1) 
* -- Less than Qeh or x le 


Passdata = ”"019 1” 
Ptpoint = 0 

Case C(Timeopt = 36 .Or. Timeopt = 37) 
= —— Oem or x le 
Passdata = "019 2” 
Pepolnie==c 

Case CTimeopt = 38 .Or. Timeopt = 39) 
* =a or <x ct 
Passdata = "Q19 3” 
Repos nu = + 

Endcase 


Do Replaord 
Loop 


Case Xmonopt = 4 
fonder. "“Cordiac Monitor” 
Passdata = "QB8e 1” 
Monpoint = 6 
Do Replaord 
Loop 


Case Xmonopt = 5S 
Menaer = Cardiac Output” 


Do B: Time 
Do Case 
Case CTimeopt < eS .Or. Timeopt = 413 
Se -— tess Ehan 11D ofr x 3 


Passdata = "Qee 1” 
PEnOIine =20 
Coase CTimeopt > e4¢ .And. Timeopt < 34) 
= —~—~Shipeex J29eend Less than Oth Cx 6] 
Passdata = "Qee 2” 


Zo 


PEpeinwrawe 

Case CTimeopt = 34 .0Or. Timecpe Seose 
===" Gh Or sao 
Possdadotea =“) Gece ean 
FEDeGtn es = oe | 

Case CTimeopt = 36 .Or. Timeopt = 37) 
* == Oech on ae 
Passdata = Geers, 
PEpOinkg “1 

Coase CTimeopt = 38 .Or. Timecpt = 39) 
* == Gl AwOr » age 
Passdata = "Qee 5S” 
PEpoint @ 16 

Endcase 


Do Replaord 


Loop 
Case Xmonopt = 6 
Mordec = "Circulation OCheekss 
Do B: Time 
Do Case 
Case Climeopt < 36 .0r. Timeopte gti} 
= =— Less than @en cr <sse 


Passdata = "Q10 1” 
PEpOIney= 0 

Case CTimeopt <" 36 .Or. fimecpte“a77) 
eI --TOenaOr xsle 
Passdata = "010 e” 
Pepoi ne. =s.c 

Case CTimeopt = 38 .Oc. Timeopt = 39) 
wa GA er <eee 
Passdata = ”"Q10 3” 
REpOinGe= + 

Endcase 


Do Replaord 
Looe 


Case Xmonopt = 7 
Morder = "CUP Readings (CManually)” 
Do B: Time 


Do Case 
Case CTimeopt < 36 .Or. Timeopt = 41) 
* —— Less, than, Gen or ate 


Passdata = "Qle 1” 
PEDOI NCPC 
Case (Timeopt = 36 .Or. Timeopt = 37) 
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“==> Qehver x ic 

Passdota tf "Sie 2” 

Eepeimne > e 

Case (Timeopt = 38 .Or. Timeopt = 39) 

eS —— Ganon x<wen 

Passdata = "Qle 3” 

RenoOing ==24 

Endcase 


Do Replaord 
Loop 


Case Xmonopt = 8 
Morder = "Fundus Checks” 


Do B: Time 
Do Case 
Case CTimeopt < 36 .Or. Timeopt = 41) 
* -- Less than Q@en or x ie 
Passdata = ”"Q14 1” 


FeEpeint =. 0 

Case CTimeopt = 36 .Or. Timeopt = 37) 
* —-— enor, x le 
Fassdato = "B14 e% 
RepeOintc = = 

Case CTimeopt = 38 .Or. Timeopt = 39) 
2 Ghee r x. ct 
Passdata = "Q14 3” 
Pen@igat et 

Endcase 


Do Reploaord 
Loop 


Case Xmonopt = 9 
Morder = "Intake & Output” 


Do B: Time 
Do Case 
Case C(Timeopt < eS .Or. Timeopt = 41) 
* -- Less than Q@8h or x 3 


Passdata = "Q9 1” 
hee imte*=< 0 

Case CTimeopt > 24% .And. Timeopt < 34) 
~=— Q6h ex 32 and less thon @4h Cx 6) 
Passdata = "QS ec” 
Beso GT ca. = 

ease  blimeoper™ st .0r. Timecpt .*.35) 
<a ae Gt Or x. 5 
Paessdata #4 @9 3” 


ea 


P9072 ieee 
Cose Climeopt = 36 .Or. Timeopt Gee. 
* => 02h On ele 
Possdata "Gar. 
Ptpoint = & | 
Case CTimeopt =—"326 .Or. limeopte=so ce 
* -—— 1h (Gee ee 
Passdato = 769 5” 
epmeleniighe Ge ills 
Endcase 


Do Replaord 
Loop 


Case Xmonopt = 10 
Mordec = @i1CP Chonitor] Seesaw 
Passdotas* Ge 3” 
PEpOimtie= os 
Tosauontgue “f° 
Do Replaord 
Loop 


Case Xmonopt = i1 
Morder = “Manual [CP Reedings: 


Do B: Time 
Do Case 
Case CTimeopt < 36 .Or. Timecpt = ala 
* -—-- Less than Qeh or x ie 
Passdota = ”’Q@13 1” 


PEpoine™. 0 

Case Clfimeopt = 36 .Or. Timeopt = s272 
“=> Gen wer. ele 
Posseoto = His 2” 
PEepotnes=. 

Coase CTimeopt = 38 .Oc;. dineomen. Joe 
oe == EG OF x eo 
Passdoto = “Q13a73” 
Pepe nu] 

Endcase 


Do Reploaord 
Loop 


Case Xmonopt = ie 
Morder = "Monitor [CP Readings” 
Do B: Time 


Do Case 
Coase (Timeopt < 36 .Or. limeosgt*=322 
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ee — ess vehoneacn. Of x 1c 
Passdoate. 2. Geert” 
eigalos ghee 18. 

Case (Timeopt = 36 .Or. Timeopt = 37) 
2 a een eoOGeX Lc 
Passdata = "’Q20 2” 
PEpol fe ee 

Case CTimeopt = 38 .Or. Timeopt = 39) 
Saal it OG ene t 
Passdata = "Q20 3” 
Bepoi ne S22 

Endcase 


Do Replaord 
Loop 


Case Xmonopt = 13 
Morder = "Neuro Checks” 


Do B: Time 
Do Case 
Case Climeopt < 34% .Or. Timeopt = 1) 
* —-- jess than Q4h or x 6 


Passdata = ’Q11 1” 
EFLoOOl Tt. Oo 
Cose CTimeopt = 34% .Or. Timeopt = 35) 
Salts Or xo 
Fesscata «<s Gil ec” 
PEpOint sa 3 
Case CTimeopt = 36 .Or. Timeopt = 37) 
eae Oe non. xX, Lc 
Passdata = ”’Q11 3” 
PEGOlme. = <a 
Case (Timeopt = 38 .Or. Timeopt = 39) 
Bee Ga Or x eet 
rPassdota =? "811 4” 
Ch ojvafo oly ghes Set bres 
Endcase 


Do Replaord 
Loop 


Case Xmonopt = 14 
Morder = "Pressure Monitor” 
Posseaco.* "86S 1” 
Monpoint = & 
Do Replaord 
Loop 


Ca 


Case Amonope “=F 1sS 
Morder = ”"PAP/PA Wedge CReadings])” 
Do B:Time 


Do Case 
Cose CTimeopt < 34% .Or. Timeopt 
* -=- [ess thormsQth orl & 


Possdato se Geir” 
PCpoint 00 
Case CTimeopt = 34% .Or. Timeopt 
“> == (04h “ons o 
Passdaota = "Qel1 e” 
Pepot nc. ™.c 
Case CTimeopt = 36 .Or. Timeopt 
*°=— Qen@eac © le 
Passeocars, Gel 3” 
FPEpOIinGRS ot 
Cose (Timeopt = 38 .Or. Timeopt 
ein Ver “xe t 
Passdata = "Qe1 4” 
PESO nt =e 
Endcase 


Do Replaord 
Loop 


Case Xmonopt = 16 
MOrder =." Swaon-Gonz Set-—uo. 
Possdato = "016 1” 
PEDG1 nit peee ot 
Toedavenitiwe. 1" 
Do Reploord 
Loop 


Case Amonept = 17 
Morder = "Temperature Monitor” 
Passdata = "984 1” 
NOnper Mite =a 
Do Replaoord 
Loop 


Case Xmonopt = 18 
Morder = "*Transcutaneous Monitor” 
Possdata ~ “Q15 1” 
PEDOL nee oS 
Do Replaord 
Loop 


Case Xmonopt = 19 
* -- Poctor’s Order Screen 
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3S) 


a7 3 


3355 


Dmenu = °]’ 
Return 


Case Xmonopt = 20 
* -- Master Screen 
Dmenu = ° ’ 
Return 


Endcase 
Release Xmonopt 


Enddo 


ak 


ee He PHAN1.PRG MH HHH HEME EHHEHHMHMHHHEEM 


* "AUENGE: Gary R. Harmeyer LCDR NC USN 

* Dette: e3 November 1985 

* Screen Generoted By: The Softwore Sect linge ecnean.s 

= OF New York, c1985 

* Purpose: One of two program modules used to 
= determine phamacy orders of the 
a patient. 

* Input Files Used: Monitor .Ser and Proeefils fae 

* Output Files Used: Orders.Dbf 

* Calling Roevtone: Doc_MNenu.Prg 

* Routine Called: Time, Phame and Phamhelp.Prg 

* hOGLEILECGL yon eoce= 1 Febouocue. Jee 

Sd 

* —-— Screen Input FProgronefor Faenm .- 

* 

Do Setup 


Public Xphamlopt 
Do While .T. 
* =-— Screen) visplay A: Phaemi+Ssene.. 


Set. Color leo, W+7Bw+7B 

Clear 

ce -Fleasnt San: aan icocr / = 

Set Coloreresw+7 5,u77s 

Xphamlope. = ees 

Do Headings 

Bo: Startup 

@ 22,66,Get Xohomicpt Pict ”*SS” Rangews 
Read 


* —-- Evaluate action based on the option selecteaa. 
Do Case 


Case Xphamiopt = 1 
Morder = "Benadryl eSmg CO)” 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphamiopt = e 
Morder = "Benadryl SOmg CIM)” 
Do B: Time 
Do Regmeds 


Zoe 


Do Replaord 
Loop 


Case Xphamilopt = 3 


Morder = "Benadryl SOmg CIVj” 
Do B: Time 

Do [Umeds 

Do Replaord 

Loop 


Case Xphamlopt = 4 


Morder = "Dimetapp Y%mg C(O)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamlopt = S 


nacder =  Dimetapp etax Smartt)” 
Do B: Time 

Do Regmeds 

Do Reploaord 

Loop 


Case Xphamlopt = 6 


Morder = "Phenergan eSmg (0)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamlopt = 7 


Morder = ”Phenergan 2eSmg CIN)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamlopt = 8 


Morder = ”*Phenergan eSmg CSP)” 
Do B:Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamlopt = 9 


nNoacaer =) “Aampreiliin .e2cSOmg CO)” 
Do B: Time 
Do Regmeds 
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Do Replaord 
Loop 


Case Xphamiopt = 10 
Morder = “Ampicecl1 ln 
Do B:Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphamlopt = 11 
Morder = "Ampicillin 
Do B:Time 
Do IVUmeds 
Do Replaord 
Loop 


Case Xphamiliopt = ile 
Morder = "Ancef .SGm 
Do B:Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphamlopt = 13 
Morder = "Ancef .SGm 
Do B: Time 
Do IVUmeds 
Do Replaord 
Loop 


Case Xphamlopt = 14 


SOOmg CIM)” 


S0OO0mg CIVj” 


Gita 


Pia 


Merder = "Cefadyl SOOmemelhil: 


Do B: Time 
Do Regmeds 
Do Reploord 
Loop 


Case Xphamlopt = 15 


Morder = Cefadyul 2. C6net nk 


Do B: Time 
Do Regmeds 
Do Replaord 
Lop 


Case Xphamlopt = 16 


Morder = "Cefadul 12 ,.06m tien. 


Do B: Time 
Do [VUmeds 
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Do Replaord 
Loop 


Case Xphamilopt = 17 


Morder = "Erythromycin 250mg (O)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamiopt = 18 


Morder = "Erythromycin Susp ec0OO0mg (O3” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamiopt = 19 


Morder = "Keflex 250mg CO)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamlopt = 20 


Morder = "Keflex Susp i1eSmg C(O)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamlopt = e1 


Morder = "Sulfacetamine 10% Solt COp)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamilopt = ee 


Morder = "Tetracycline eSOmg CO)” 
Do B: Time 

Do Regmeds 

Do Replaord 

Loop 


Case Xphamilopt = 23 


Morder = "Tetracycline SO00Omg CIvj3” 
Do B: Time 
Do [VUmeds 


eo» 


Do Replaord 
Loop 


Case Xphamlopt = e4 
* -—— Herp 
Do B:Phamhelp 
Loop 


Case Xphamiopt = eS 
* -- Next Screen (More Meds) 
Do B:Phame 
Loop 


Case Xphamliopt = ecb 
* -- Dr’s Order Screen 
Dmenu = ’]’ 
Return 


Case Xphamliopt = 27 
* -- Master Screen 
Dmenu = ° ’ 

Return 


Endcase 
Release Xphamlopt 


Enddo 
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ee PHANe.PRG 30 Ae Ae AG i AE SA Re ae Re NE A SE ES ae SE A 2 a eae SES a a a 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: eS Nov 1965 

* Screen Generated By: The Software Bottling Company 
* | OF New York, c19385 

* Purpose: One of two program modules to 
” determine pharmacy orders of the 
‘a patient. 

* Input Files Used: Ramesses Gne Proctile.2rg 

* Output Files Used: Orders.Dbf 

* Caolling Routine: Pinca. i ao 

* Routine Called: Time.Prg 

* Modification Date: 4 February 1986 

= 

fee oereen input Program For Phame —-- 

* 

Do Setup 


Public Xphameopt 


He While .T. 


we oereen Display A:Phame.Ser —-- 


Set Color To Wt+/B,W+/B 

Clear 

maoenlash+’S.A:Phame.Scer/” 

eet Color To W+/B,W+/B 

Panemcopt =*ct 

Do Headings 

Bo Startup 

Peace Get Aphoameopt Pict ’SS” Range i,c4 
Read 


* —- Evaluate action based on the option selected -- 
Do Case 


Case Xphameopt = 1 
Morder = "Boric Acid S%*% Solt CIjJ” 
Do B: Time 


Do Case 

* -- Expert system data 

Case (Timeopt < 6 .Or. Timeopt = 41) 
Rassaeca -a “O06 5” 
PEpernt = 0 

Case CTimeopt > S .And. Timeopt < 34) 
Passdata = "Q48 1” 
SepG@l Wisc 


ea 


Case €Timeopt = 34 
Passdata = 
P Spo Geen es 
Case CTimeopt = 36 
Passdata = 
PUDOInG. = aS 
Case C€Timeopt = 38 
Passdata = 
PEpOInG = 2c 
Endcase 


Do Replaord 
Loop 


Case Xpham2opt = e 
Morder = "Atropine O 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 3 
MNorder = "Atropine O 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 4 
Morder a=. “Valium Smg 
Do B: Time 
Do Regmeds 
Do Replaord 
LGoap 


Case Xphameopt = 5 
Horcder ==. Valium sma 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 6 
Morder = "Valium Smg 
Do B: Time 
Do [VUmeds 
Do Replaord 
Loop 


"O48 ce” 


”»Q48 3” 


OY El ies 


.Or. Timeopt = 35) 
.Or. Timeopt = 3728 
Or: Timeopt = 258 
tne too 
sama City. 

Eo 

Eehins.” 

CIVae 
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Case Xphameopt = 7 
focde. = "Digoxin 
Do B:Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 8 
Morder = "Digoxin 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 9 
Morder = "Inderal 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 10 
Morder = "Inderal 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 11 
Morder = "Inderal 
Do B: Time 
Do [VUmeds 
Do Replaord 
Loop 


Case Xphameopt = ie 
Morder = 
Do D: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 13 
Morder = 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


mlesmg CO)” 


se oOmgecd )” 


10mg CO)” 


sOmag tGa” 


img CIV)” 


"Minipres img (QOJ)” 


Aimioeeseemo (Ol. 


Za 


Case Xphameopt = 14 
Morder = "Minipres Smg (OJ” 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 15 
Morder = “Di lontrae cong sce: 
Do B: Times 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 16 
Morder = “Dilentin supe tease soa 
Do B: Time 
Do Regmeds 
Do Replaocrd 
Loop 


Case Xphameopt = 17 
Needer = Elavit longs conn 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 18 
Hordern 2 =-Elavil- come £6)~ 
Do B: Time 
Do Regmeds 
Do Replaord 
Loon 


Case Xphameopt = 19 
Mordér = “Elavil SOmprtas ~ 
Do B: Time 
Do Regmeds 
Do Replaord 
Eoop 


Case Xphameopt = 20 
Morder = "*Phenobaorbital 15mg (OJ)” 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 
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Case Xphameopt = 21 
HOoGrae, ==" Phenebageatal 3Omgrto)” 
Do B: Time 
Do Regmeds 
Bo Repl ooga 
Loop 


Case Xphameopt = ee 
Morder = "Phenobarbital 60mg CIN)” 
Do B: Time 
Do Regmeds 
Do Replaord 
Loop 


Case Xphameopt = 23 
fo  nelp 
Do B:Phamhelp 
Loop 


Case Xphameopt = e4 
* -- Previous Screen 
Return 


Endcase 
Release Xphameopt 


Enddo 
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Me tt it PHAMHELP.PRG We HE Ae Hk Ae he Ae Ne HR ae NE THE WE Re IRE OE OE AOE 0 Ae UE AE ate IE ae OE a RE ae OE Re BO Ne UE ate 0k Eat 


Author: 
Date: 


Purpose: 


* * &€@ &€& & &« & &€ Ee EE RE 


Do Setup 


Do While .T. 


Screen Generated By: 


Input Files Used: 
Output Files Used: 
Colling Routine: 
Routine Called: 
Modification Date: 


Gory R. Harmeyer LCDR NC USN 

23 November 1985 

The Software Bottling Company 
OF New York, ci985 

Brief on-line help Facility For the 
Phaml and Phameseaa. 

Phamhelp.Scr and Preck ite. lee 

None 

Phaml> oer Phame are 

None 

2S Januagey 1 Soe 


-— Screen Input Program For Phomheles. 


* -= Screen Display A: Phamhelp. sca... 


Set. Color Staew+75,W+/8 


Clear 

ee Plieshs Ss 
© e340 
@-e4-37 sau 
Set Console 
Woit 

Set Console 
Return 


Enaga 


Sacre homnelp. ser ~ 


"Press Any Key To Continue” 


OFF 


On 
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* eM ROUTINE .PRG CREAR EEEEKREEEEEEEEEEEEEREREEEEEEE ERE 


Author: 
Dote: 
Screen Generated By: 


Purpose: 


Input Files Used: 
Output Files Used: 
Balling Routine: 
Routine Called: 
Modification Dote: 


* * *£ * *& ® ee KE KR KH H 


* 


Do Setup 
Bwolic Xrouopt 


Do While .!. 


Gary R. Harmeyer LCDR NC USN 

293 November 19865 

The Software Bottling Company 
OF New York, c1385 

Determine the ward routine orders 
of the patient. 

RoOuGIne.Sser ang FProcfile. erg 

Orders.DbfF 

Doc_MNenu.Prg 

Time.Prg 

19 February 1986 


-- Screen Input Program For Routine -- 


fe-—— Screen Uisplay A:Routine.Scr -- 


sec Color To W+/B,wW+/B 


Clear 


ee Flasht”’S.A:RKoutine.Ser/” 
Set Color To Wt/B,W+/B 


ApoOuopte = 30 
Do Headings 


ne Startup 

meece,66 Get Xrovuopt Pict ”"99” Range O, 31 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Ease Arovuapt = 0 
es ol gn -OFE 
Close Databases 
Close Procedure 
Release All 


Return To Master 


Case Xrovopt = 1 
Morder = 
Passdata = 
Pele im sc 
Do Replaord 
Loop 


"Ace Wrap Lower Ext” 
ei 36 a 
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Case Xrovopt =e 
Morder = "Chest Tube Insertion” 
Passdata =" "0574... 
PEDO mits =oa 
Tedovenly. = Me 
Do Replaord 
Loop 


Case Xrouopt = 3 
Morder = "Circumcision Care 
Do B: Time 
Passdata = "Q5e 1” 
PCG) Mhitaes & 
Do Replaord 
Loop 


Case Xrouopt = 4 
Morder = "Complex Dressing Change” 
Do B:Time 


Do Case 
Case C(Timeopt < 6 .Or. Timeopt = 413 
* -—-- Less than one dressing 


Possdgta = "S751" 
PEpOTne = 0 

Case (Timeopt > S .And. Timeopt < 22) 
* —-- One dressing change 
Passdata = ”’Q37 8” 
PEmeniiate =. +t 

Case CTimeopt > e1 .And. Timeopt < 25) 
“ --~- Two dressing changes 
Passedcra =. U3753- 
FEDOGinE.=—S 

Case (Timeopt > et .And. Timeopt < 31) 
* -- Three dressing changes 
Passdata = ”"Q37 10” 
Penoinkg “le 

Case (Timeopt > 30 .And. Timeopt < 34] 
* -~ Four dressing changes 
Passdata 74237711) 
PEpei nt ..5 

Case CTimeopt = 34 .0cf. Timeapesses 
* ~~ Six dressing changes 
Passdata “=F O27 ce” 
PEDO eG = aan 

Case CTimeopt ™ 36 .0r. limespl je. 
* -- Twelve dressing changes 
Possdagta, = G27e1 a 
PERS Tite oto 


244, 


Bese w6himMmeopeseaso .0f. Timeopt ="39) 
* -- Twenty-Four dressing changes 
Passdotea =#°0O37 1%” 
PEpeint.— SG 
Endcase 


Do Replaord 
Loop 


Case Xrouopt = 5S 
Morder = "EKG Rhythm Strip” 
Fasseaca ,.“ “G33 1” 
Peet hie = .c 
Togeavoniy =" T” 
Do Replaord 
Loop 


Case Xrouopt = 6 
feocaer = "“roley Cath Care” 


Do B: Time 
Do Case 
Case CTimeopt < ee .Or. Timeopt = 41) 
* —-- Tube care less than x @ 


Fasseata s@#"°039 1” 
PEDOLNE =O 

Case CTimeopt > 21 .And. Timeopt < 25) 
=] ube care x ce 
Passdata = ”"Q39 ce” 
Eeool here 

Case CTimeopt > 24 .And. Timeopt < 31) 
*-— Tube care x 3 
Passdata = "Q393 3” 
Fenpolint = 3 

Case CTimeopt > 30 .And. Timeopt < 34) 
~e-—= lube scare x + 
Passdata = ”"Q39 4” 
Pen@i mt == 

Gase F§Ciimeopt se? 34 .0r. Timeopt = 35) 
“~——-l1ube Gare x 6b 
pPassaqata = 839 5” 
Peootne = & 

Case CTimeopt = 36 .Or. Timeopt = 37) 
*~—=— Tubescore x le 
Passdata = "Q39 6” 
wepOint. = le 

Case CTimeopt = 38 .Or. Timeopt 
co>— Tubescare x ct 
Pessagca -s— 9039S 7” 


Sop) 
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PtpeGL mittee 2 
Endcase 


Do Rep leoerd 
Lecp 


Case Xrouopt = 7 
Morder = ~Foleu Sabena !lnses eran. 
Passdaco.= Goac., 
FEpOI ne. =e 
Tedauon butt 
Do Replaord 
Loop 


Case Xrouopt = 8 
lesen = S5ULec Seaqgls 
Do B: Time 
Do Routine 
Do Replaord 
Loop 


Case xXroucpt = S$ 
Mordeér = KRespicetory  |selorians 
Passdata » "Q54% e” 
PEpOrnteasse 
Do Replaord 
Loop 


Case Accucpe = 10 
Morder = "Reverse [solatioan” 
Passdateaenr 98522 
Frpelimta=sc 
Do Replaord 
Loop 


Case Xrouvopt = 11 
Morder = ’Strict [selatrlone 
Passdata-=5 2S2ec. 
PEpSi mnie = oc 
Do Replaord 
Loop 


Cose XxXrovepre="12 
Morder = "*Lumbar Puncture” 
Possdoaee” =F O56 31.) 
PEDCG ihre st 
Todauemtun s..o2 
Do Replaord 
Loop 
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Case Xrouopt = 13 
Merder =? "°N-G Insertion” 
heassaata = "Qs 
Fepoint = ¢e 
HoOGevGmry «= 17 
Do Replaord 
Loop 


Case Xrovopt = 14% 
Morder = "Parencentesis” 
Passdata = ”Q60 1” 
rPepOolnws=-4 
tcedouonly. =. 1” 
Do Replaord 
Loop 


Case Xrouvopt = 15 
Morder = ”*Phototherapy” 
Passdate = "053 1” 
repel ne.=* c 
Do Replaord 
Loop 


Case Xrouopt = 16 
Morder = "ROM Exercises (CPassive)” 
Do B: Time 
Do Range 
Do Replaord 
Loop 


Case Xrouopt = 17 
Mereer = "e-Point Restaints” 
Fasseata =F O50 1” 
fFepeana =] 2 
Do Replaord 
Loop 


Case Xrouopt = 18 
Morder = ”"4-Point Restraints” 
Passdata = ”"Q@S50 ec” 
Popo neet« Cc 
Do Replaord 
Loop 


Case Xrovopt = 19 
Morder = "Posey Restraint” 
Pessdata .=* "850 3” 
PEpoins = c 
Do Replaord 
Loop 
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Case xXrGueopt = "eC 
Morder = "Simple Dressing Change” 


Do B: Time 
Do Case 
Case Cfimeopt < ee .O0n. Timeont =e. 
* -- Less thoun-< °c 


Passdatoa =* "@37 i” 
FEDOGince— « 

Case CTimeopt > 21 .And. Timeopt < 25) 
a9 ook eo oe Vere 
Possdata .* G37 2” 
PEPE ness wc 

Case CTimeopt > e@Y4% .And. Timeopt < 31) 
= =-— X.3%or CTE 
Passdata = "037 3” 
PEpoUnE =o 

Case CTimeopt > 30 .And. Timeopt < 34) 
A= et Oe ee 
Passaato = Gay 4” 
Pepelne “a4 

Case (Timeopt *= 34 .Or. Timecpt = 35) 
*e——= Xb. -OL eae 
Passdota = "037 5S” 
Fepeine = G6 

Case (Timeopt = 36 .Or. Timeopt.* 373 
SiS ekKote oF. Geh 
Passdata.*= "037 6” 
PEON e. Jc 

Case Climeapt = 38 .0Or.. jimespew=ese 
a= Xe OCSOth 
Fassaqto “sh “Ga7 7” 
Pepe i nue sae + 

Endcase 


Do Replaord 
Loop 


Coses 7;5ouept..=.c1 
Mecdec = "Spec Gravity: 
Do B: Time 
Do Routine 
Do Reploord 
Leop 


Case Xrouopt = ee 
Necder So ane heise 
Do B: Time 
bo keene 
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Do Replaord 
Loop 


Case Xrouopt = 23 
horder.@ “Strorgre Eath” 


Do B: Time 
Do Case 
Case (Timeopt < 31 .Or. Timeopt = 41) 
"== [ess Enan x + 


Passdata = "Q3e 2” 
Pepoinc 20 
Coase (Timeopt > 30 .And. Timeopt < 41) 
* -- X 4 or more 
Passdata = "Q32e 3” 
Pepeimt .—et 
Endcase 


Do Replaord 
Loop 


Case Xrouopt = e4 
Morder = "Surgical Shave Prep” 
Fassdata =. "034% 1” 
REDOING: =) c 
teaauoniy = 91” 
Do Reploord 
Loop 


Base XrouOpe =. cS 
Morder = "SS Enema” 
Passdata = "Q35 1” 
REDO] cma. & 
Tecavanty = “1” 

Do Replaord 
Loop 


Case Xrouopt = ¢c6 
Morder = "Tap Water Enema” 
rossdeta = "35 1” 
FEpoint = 2 
Rodguom.ity ss 1” 
Do Replaord 
Loop 


Case Xrouopt = 27 
Morder = ”*Thoracentesis” 
Passdata = ”’Q59 1” 
EepOime. = + 
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Todayoenltuceen 
Do Replaord 


Loop 


Case AceouGpt.sueo 
nenaenes 
Do B:Time 


Do Case 
Case CTimeopt < ee .Or. 


* -- Tube care less than x 


Passdata = "038 1” 
FEDGi ners 2 

Case CTimeopt > e1 .And. 
* —= Tube -cacge.x c 
Passdata # "@38 2” 
Ptpoint = ec 

Case CTimeopt > e4 .And. 
ee == lube Core +x .3 
Passdota = "038 3” 
PEpeint™= 3 

Case CTimeopt > 30 .And. 
*.—-—- it be,~Core. <4 
Passdata = "Q38 4%” 
RUpoOl nace. st 

Case CTimeopt = 34 .Or. 
a =) fUbeYy care =< 6 
Passdata = "Q38 5” 
Ptpoint “= & 

Case CTimeopt = 36 .Or. 
a> =—STube4eebewx: tke 
Passdata = "G38 6” 
FEpOinGg = ic 

Case CTimeopt = 38 .Or. 
“> -— Tube wcare: x co 
Passdata,™. "Q38 7” 
PEpeint © cd 

Endcase 


Do Replaord 
Loop 


Case Xrouopt = e293 
Morder = "5 & A of Urine” 
Do B: Time 
Do Routine 
Do Replaord 
Loop 


Ae 


"Tube Care C€not. tage 


Timeopt » 413 


e 


Timeopt < 25) 


Timeopt < 31) 


Timeope <e4an) 


Timeopt = 35) 
Timeopt = 373) 
Timeopt = 39) 


Case Xrouopt = 30 


* --— Doctor’s Order Screen 
Dmenu = °]’ 
Return 


Case Xrouopt = 31 
* -- Master Screen 
Dmenu = ” ’ 
Return 


Endcase 
Release Xrouopt 


Enddo 


al 


MH hm US.PRG He Ae ee ee Ae Ee EA ke ee he ie EE ae Re ate ae ae 2 ee 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 29 November 1985S 

* Screen Generated By: The Software Bottling Compan 
= OF New York, c1985 

* Purpose: Determine the vital sign orders of 
a the patient. 

* Input Files Used: US .Scr and Proecriler se 

* Output Files Used: Orders.Dbf 

~ Colling ReGgelae: Doce henun eo 

* Routine Called: Time.Prg 

* MOaGlt ication wace- 4 February 1986 

* 

= -— Screen Input Poograom hegeUS aa 

” 

Do Setup 


Public Xvsopt 


Do While .TI. 


*~—>- SErTGern Ul Splau A: US Ser) = 


Set Color To W+/B,W+t+/B 
Clear 

eC? Ff lasht eon: VS.5CE 7 | 
Set Color To Wt/B,W+/B 
Xvsopt = le 

Do Headings 


Uo Startup 

© e€c,66 Get xAvsopt Pict “SS” Range Gat 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Case Xvsopt = O 
Sol Gna Ue 
Close Database 
Close Procedure 
Release All 
Return To Master 


Case Xvsopt = 1 
MOpdecw= 1 -P—-Rew B/E 
Do B: Time 


Do Case 
Case Timeopt < 34 


Ze 


* -- QID or less 
Passdata = "Q1 1” 
FEpoint. =Ll 

Case (Timeopt = 34 
ee EY iene 
Passdate = ”’Q@1 2” 
PEDOI Nt =sc 

Case (Timeopt = 36 
Ses Gen or. x JLe 
Passdate = "01 3” 
Ptpoint = 4% 

Case C(Timeopt = 38 
~ = Dineen sx ct 
Passdate = "Q@1 %” 
Fepolnt fio 

Case Timeopt = ‘41 
* -- No Frequency 
Passdaoate = ’Q1 5S” 
mewoi nt, 70 

Endcase 


Do Replaord 


Loop 

Case Xvsopt = 2 
hogden = “Fest—cp” 
Passdata = "Q8 1” 


Pepo lnc). © 
Tedayonly = 
Do Replaord 
Loop 


otra 


Case Xvsopt = 3 
Morder = 


Fassdata = "08 2” 
RPEDOints 6 
iogaiuanith = 2 


Do Replaord 
Loop 


Case Xvsopt = ¢ 
Morder = 


Passdata = "Q8 3” 
PeEpoInt ="5 
hegayonliy = °1” 
Do Replaord 

Loop 


MeOSt Portum” 


foc. Limeope:=" 35) 
.Or. Timeopt = 37) 
(Ur al ImeoODpeE +7499 
indicated 


"Post Newborn” 


sD, 


Case Xvsopt = 5S 
Morder = ”FHT” 
Do B: Time 


l¢é CTimeopt < 34% .Or. Timeopt 22 
* -- Less then Gan 
Passdata = "06 1” 
PEpoint =o 
Else 
**-— O4h or mose 
Passdato = "86 2” 
PEpOintwe ec 
EWGae 


Do Replaord 
LoOoo 


Case Xvsopt = 6G 
Morder = "Apical Pulse” 
Do B: Time 


If (Timeopt < 31 .0c. Timecpe = +2 
* -- Less thon QID 
Passdata - "3 1” 
PEpolac — © 
Else 
¥ ==--B1D or more 
Passdeta,= “G22” 
PEpoed ne. 2 
Endif 


Do Replaord 
Loop 


Case Xvsopt = 7 
Morder = "Femoral Pulse” 
Do B:Time 


If CTimeopt < 3% .0c. Tinespees. 2 
= =— {ess than Gun 
Poassdata»= "@Q4% 1” 
PEDOINE§) 0 
Else 
Se —— Eth OG More 
Passdata =~ "Q4 e” 
PENOime t= ie 
Esmee 


Do Replaord 
Loop 
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Case Xvsopt = 8 
Morder = "Pedal Pulse” 
Do B: Time 


bal timeopt.< S31 veers tmeapt = 11) 
* -~- Less than Q4h 
Passdota = "05 1” 
EGpOILnte ww O 
Else 
> = G4th soe. more 
Passdotaoa = "05 2” 
Repoint = 2 
Endilt 


Do Replaoord 
Loop 


Case Xvsopt = Qg 
Morder = "Axillary Temps” 
Do B:Time 


If CTimeopt < 31 .Or. Timeopt = %1) 
* ~- Less than QID 
Passdata = "Qe 2” 
Reeoim: =. 70 
Else 
ns Gl or more 
Passdato = "Qe 4%” 
PEpOInt, —#e 
Endif 


Do Reploord 
Loop 


Case Xvsopt = 10 
Morder = ”Rectal Temps” 
Do B: Time 


roeeoameopcss Sl .0r. l[imescpt = 41) 
* -- Less than QID 
Passdoato = "Qe 1” 
PeeOi me = 0 
Else 
<S——- Giver more 
rossaeta = "Oc 3” 
meoOlLmne “re 
Endif 


29> 


Do Replaord 
Loop 


Case Xvsopt = 11 
Morder = "Tilt Test” 
Do B: Time 


If C€Timeopt < 34 (Or. Timeose ae. 
* -- Less than OQ4nh 
Passdote = ”"Q7 1” 
Peon sae 
Else 
“== Gh, OF anoce 
Passdate = "07 2” 
reports ce 
PNnake 


Do Reploord 
Loop 


Case Xvsopt = 12 
* =—-— Doctor’ s Order Screen 
Dmenu = °*1L’ 
Return 


Case Xvsopt = 13 
* -- Master Screen 
Dmenu = ’ ’ 
Return 


Endcase 
Release Xvsopt 


Enddo 
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He XRAY ; PRG ee eee eee ee ERS SEER SERA S EES RE SE RRS SEER SE ROSS SE 


* Author: Gary R. Harmeyer LCDR NC USN 
* Date: 8 December 1985 

* Screen Generated By: The Software Bottling Company 
* OF New York, c1938S 

* Purpose: Determine xray orders for the 
- patient. 

* Input Files Used: XGGu.ocee ana Proc&ile.Pra 

* Output Files Used: Orders .Dbf 

* Calling Routines: Doc_Menu.Prg 

* Routine Called: Time.Prg 

* Modification Date: 4 February 1986 

* 

Beene SeCreen input Program For xray —— 

& 

Do Setup 


Public Xxrayopt 


Bo While .T. 


mec o oe oecreen Display B:xXray.Scr -- 


peu color Io W+/B,W+/8B 
Clear 

fear brosn+ S.B:xXray.Ser/” 
Set COlor To W+/B,W+/B 
fGauyept = 19 

Do Headings 


Do Startup 

Peec,o5 Get Xxrayopt Pict "3S" Range 0O,c0 

Read 

* -- Evaluate action based on the option selected -- 
Do Cass 


Case Xxrayopt = O 
Seece Slan OFF 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xxrayopt = 1 
Morder = "Abdomen Flat Plate Xray” 
Do B: Time 
Do Replaord 
Loop 
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Case Scaucpe =e 
Morder = "Addomen AP Xray” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 3 
Morder = "Abdomen 3-way Xray” 
Do B: Time 
Do Replaord 
Loop 


Case AXxraugope ra 
Morder = "Angiography” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = S 
Morder = "Arteriography” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 6 
Morder = "Barium Enema” 
Do B: Time 
Do Replaord 
Loop 


Case XxXxrayopt = 7 
Morder = "Brain Scan” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 8 
Morder = "Chest PA Xray” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 9 
Morder = "Chest Lateral Xray” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 10 
MNOopder =" -— Iocan. 
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Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 11 
Morder = "Gallbladder Seriss” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = le 
neGaer. = "TUP” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 13 
Morder = "Sinus Series” 
Do B: Time 
Do Replaord 
Loop 


fase Axrauopt = 14 
Morder = "Skull Xray” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 15 
Morder = "Spine Xray” 
Do B: Time 
Do Replaord 
Eoop 


Case Xxrayopt = 16 
Morder = "*Tomography” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 17 
Morder = "Upper GI Series” 
Do B: Time 
Do Replaord 
Loop 


Case Xxrayopt = 18 


Morder = "Ultrasound” 
Do B: Time 
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Do Replaord 
Loop 


Case Axrauepe am 1S 
* —--— Doctor’s Order Screen 
Dmenu = ’)’ 
Return 


Coser x<rauope =—aco 
*--= flaster Screen 
Dmenu = ’ ’ 

Return 


Endcase 
Release Xxrayopt 


Enddo 
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We te Me DISCONT .PRG He ie Me Ae We We ie HG ie ie HG ie AE ee a AE ee AE ee a ae ae te 


* Author: Gary R. Harmeyer LCOR NC USN 

* Date: 18 December 1985 

* Screen Generated By: The Software Bottling Company 

. Gfevew York, C1385 

* Purpose: Display patient orders to determines 
- if any are to be discontinued. 
* Input Files Used: Disecone. See and Practite.rPrg 

* Output Files Used: Orders.Dbf 

feealling Routine: BOETOr <-rg 

* Routine Calls: None 

Seriagcification Date: 18 February 1986 

* 

Seer scleen Input Program For Discont -= 

* 

Do Setup 


Beotic Xdisopt, Xdcdoate, Xdcorder , Xdcpreac 
Public Xdcfreq, Xmptfmpssn, Xordpack 
perepack = .F. 


feo identify correct patient to display orders -- 


Use B:Orders 
Store ”’” + Ptfmpssn + ”’” To Xmptfmpssn 
Locate For Fmpssn = &Xmptfmpssn .And. Module # ‘'N’ 


Bo While .1f. 
Beeos Score gata from DDF File into variable names -- 


Xdcdate = Odate 
Xdctime = Otime 
Xdcorder = Order 
Xdcfreq = Freq 
Xdcprac PEac 


fe-- oereen Display A:Discont.Scr -- 


set Color [Io W+/B,W+/B 
Clear 

mf Plasht”"S.A:Discont .Scr/” 
Set Color To W+t/B,Wt/B 
Xdisopt = 1 

Do Headings 

© 13,1 Say Xdcdate 

© 13,10 Say Xdctime 
ea. iS Say Xdcorder 

© 13,47 Say Xdcfreq 
fees. 50 Say xdeprac 
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@ 22,67 Get xXdisopt Pict “3S sawee on 
Read 


* -- Evaluate action based on the option selected -- 
Do Case 


Case Xdisopt = O 
* == Sign-Oee 
Lf AOcCepack ===. 

Pack 

Endif 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xdisopt = 1 
* ==) Next Urdec 
Skip 
Do While C(CFmpssn # &Xmptfmpssn) .Or.CModule = ’N”)) 
lEeeOrt3 
f@ 24,4 Say "No Additional Medical Orders Gn 
@ 2%,36 Say "This Patient -—- Press Any Keu Teme 
Sse%,60 Sat Cantinue~ 
Set Console OFF 
Wait 
Set Console On 
LE execdpack ="... 
POCK 
Enea & 
Return 
Else 
ake SD 
Enaiet 
Enddo 
Le VEOr. [3 
@ 24,4 Say "No Additional Medical Orders On ” 
@ 24,365 Say "This Patient -- Press Any Kegon 
fen 69. sau Caneinvdes 
Set Console Off 
Wait 
Set Console Qn 
[f  Kesepack = «—.. 
Pack 
Bm ak 
Return 
Else 
Loop 
Endic 
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Case Xdisopt =e 


f—-— Discontinue The Order 
KOragepceke 1. 

Delete 

Ski0 


Do While CCFmpssn # &Xmptfmpssn).Or.CModule = ”"N”)) 


pewOr 63 
@®@ 24,4% Say "No Additional Medical Orders On 


@2%,36 Say "This FPatisnt -- Press Any Key To 


Peet os Sate cone lmue ” 
Set Console Off 
Wad c 
Set Console On 
Pack 
Return 
Else 
skip 
Bement 
Enddo 
Peeeeor 7 C) 
Sez. + Say “NO Additional Medical Orders On ” 
@®@ 24,36 Say "This Patient -- Press Any Key To 
eet ,o9 sou Continue” 
See Console Off 
Woit 
Set Console On 
Peek 
Return 
Else 
Loop 
Emalt 


Case Xdisopt = 3 
* —--— Dr’s Master 
ta Ggropeack = .1. 
rock 
Enea & 
Hmnenuc= L" 
Return 


ease Adisopts % 
= >=— (laster 
fee rAonapock = .f. 
Pack 
Emel 
Dmenu =” 
Return 


33 
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33 


33 


Endcase 
Release Xdisopt, Xdcdote, Xdcorder , Xdcprac 
Release Xdcfreq, Xmptfmpssn, Xordpack 


Enaae 
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Mt et ee TRANSFER F PRG Wie Be We WE BA Bh WE INE TNE Oe TE TEE HE HE BEE at he SUE aU HE Re he AE SE BU RE UE ae Oe SE Re Re IE RE Oe te aE ae ae 


= Author: Gary R. Harmeyer LCDR NC USN 
* Date: 9 December 1398S 

* Screen Generated By: The Softwore Bottling Company 
* OF New York, c1985 

* Purpose: Menu to determine if patient will 
~ be admitted, transferred or 
= discharged. 

* Input Files Used: Teens, eG. oC Gnd FEOcl 112. -69 
* Qutput Files Used: Orders.Dbf 

eecaliling Routine: HOGCEOL. AEG 

* Routine Called: None 

eeniodification Date: Te Peper .oe6 

% 

Seeeesecceen (Impulse rrogram Fer Iransfer -- 

mt 

Do Setup 


Belolic Xtranopt 


Do While .T. 


fe sefeen Display A:Transfer.Scr -- 


Set Color To W+/B,W+/B 

Clear 

mr Plosht"S.A:Transfer.Scr/” 
eet COlor_To Wt+/B,W+/B 
SeEGonopt = 4 

Do Headings 


no Startup 

Peee,o7 bet Atranopt Pict "S” Range O,S 

Read 

* -- Evaluate action based on the option selected -- 
Do Case 


Case Xtranopt = O 
Sa) Son One 
Close Databases 
Release All 
Close Procedure 


Case Xtranopt = 1 
Morder = "Admit” 
nmassoaca = "Ge e” 
REDO nie= le 
MeGaeOn Lines of 
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Do Replaord 
Leen 


Case Xtranopt = e 
Marder .-* "Transfer? 
Passdocasew = be vee 
FeO ite t 
Tedavonlip~ ea... 

Do Replaord 
Loop 


Case XAXAtranopt.“~ 2 
Nerdec,’ <3" bisechagde © 
Do Replaord 
Loop 


Case Xtranopt = 4 
* —=(ecter *s Master Screen 
Dmenu = 71’ 
Return 


Case Xtranopt = S 
* -- Master Screen 
Dnenu =) ~*~ 
Return 


Endcase 
Release Xtranopt 


Enddo 
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ee ee NURSE : PRG ee ME EE AE Ae EE ee RE ee 


* Author: Gary R. Harmeyer LCDR NC USN 

* Dote: 20 December 1985 

* Screen Generated By: The Software Bottling Company 

* OF New York, cl19385 

* Purpose: Provide the nurse options of enter- 
* ing or reviewing nursing care 

* plans. The module allows the 

* nurse to determine the patient 
* classification level either in- 
* ternally or externally. 

* Input Files Used: NUGSeE oer nd Prochile.Frrg 

* Output Files Used: Orders and Necaredb.Dbf 

* Output File Created: Return.Txt 

eecolling Routine: Weede or Worcads.Prg 

* Routine Calls: Nursel.Prg 

eeniodification Date: SMeat Cnet so 

% 

* -- Screen Input Program For Nurse -- 

* 

Do Setup 


Public Xnuropt,Nmenu, Xpoints, Xmonpt, Xemopt, Xroupt, Xlevel 
Public Xnow, Xtoday 

Nmenu = Spaceli)j 

Xpoints = OQ 

Xmonpt = O 

Xemopt = O 

Beoupt = O 

Xlevel = Space(l1e) 

meore DTOCCDate()J) To Xnow 

meagre °’” + Xnow + ”’” To Xtoday 


foe While .T. 
* -—-- Screen Display A:Nurse.Scecr -- 


wet Color [fo W+/B,W+/B 

Clear 

ee Floash+”"S.A:Nurse.Scr/” 

met Color To W+/B,W+/B 

anurcopt 18 

Do Headings 

Peee,o7 Get Xnuropt Pict ”"3S” Range O,8 
Read 


e)—. Evaluate action based “onthe option selected -- 


Do Case 
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Case xXnvropes-.e 
2S Signe ore 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xnuropt = 1 
* =- Enter/ inactivate Nursing Care se tam 
Do B:Nursel 
lf Nien. 
Loop 
Else 
Return 
Engaie 


Case Xnuropt = 2 
* -- Review Nursing Care Plan 
Clear 
Set Color To Wt+/B,W+/B 
© 1,2€0 Say *Nursing Eare Planvion 
@ 1243 Seur- aura 
ff 3,10 Say ’Press -— Ctrl and S *4oekeus | 
@ 3,38 Say "to Pause The Scrolling If Necessary” 
Use B:Ncaredb 
Store ”’” + Ptfmpssn + ”’” To Mptfmpssn 
Report Form B:NC For Nfmpssn = &mptfmpssn 
Wait 
Loop 


Case Xnuropt = 3 
*s—-— Print Nursing Cagemriar 
@'e4%,0 Say *Turn- Gn Your Primnger a 
@ e4,22 Say "Then Hit Anu Neg) lovee imes 
Set Console Off 
wad i 
Set Console On 
Clear 
© 12,30 Say "Printing, Picaser tare, 
Set Console Off 
Set Device To Print 
@ 1,c0 Say "Nursing Care Piacoa. 
@ 3.43. Sau Ourpee 
Set Device To Screen 
Use B:Ncaredb 
Store ”’” + Ptfmpssn + ”’” To Mptfmpssn 
Report Form B:NC Noeject; 
To Print For Nfmpssn = &mptfmpssn 
Set Console On 
@ 24,0 Sau “Finished Printing ene 
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@ e4+,e2e Say "Any Key To Continue” 
Set Console OFF 


Wait 
Set Console On 
Loop 
Case Xnuropt = 4 
* -- Determine Potient Clossificaotion Level 
Use B:Orders 
SEGQne = + Pttmpssn + ~' ” To Mpetfmpssn 


Copy To B:Return Fields Expertsys SdFf; 


Fmpssn = &mptfmpssn .And. COnlytoday = "F” .Or.; 


COnlytoday = ”*T” .And. Odote = &Xtodaoy)) 
Close Procedure 
Close Databases 
Release All 


= —— Exe this poctwden of prototype softwore 
Quit 
Case Xnuropt = S 
* —-- Review Patient Core Requirements 
Clear 


Sec Coler fo Wty W+/7B 

@ 1,17 Say "Patient Care Requirements For: ” 

fe ite. oot) Curpt 

Sean toeagg Fress -- Ctri ond S -—- Keys To Pause 
@ 3,47 Say "The Scrolling If Necessary” 

Use B:Orders 

Store ”’” + Ptfmpssn + ”’” To Mptfmpssn 

ReeGerte Form B:Ord For; 


Fmpssn = &mptfmpssn .And. COnlytodoay = "F” .Or.; 


COnlytoday = ”"T” .And. Odote = &Xtoday)) 
Woit 
Loop 


Case Xnuropt = 6 
* -- Print Patient Care Requirements 
Geen sOrscipe TUE Om YOur Printer, ” 
© e4,c3 Say "Then Hit Any Key To Print” 
Set Console Off 
Woit 
Set Console On 
Clear 
@ 12,30 Say "Printing, Please Woit” 
Set Console Off 
Set Device To Print 
@ 1,17 Soy ”*Potient Care Requirements For: ” 
Cait, Saw Ourpt 
Set Device To Screen 
Use B: Orders 
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Store ”’” + Ptfmpssn + “°° 9fo Mercemnessn 

Report Form B:Ord Noeject [fo Print Fan. 
Fmpssn = &mptfmpssn .And. COnlytodaoy = "F” .Or.; 
COnlytoday = "T” .And. Odote = €Xtadaiee 

Set Console On 

@ 24,0 Say "Finished Printing ome 

@ 24,¢ec3 Say “Any Keg ilar bonetatcs 

Set Console Off 

Wait 

Set Console On 

Loop 


Cose Xnuropt = 7 
* -- [Internal Potient Classif téqertem 
Clear 
Set. Color To W+75.W+7e 
@ 7,235 Soy "Please Wait While Caleularing. 
Use B:Orders 
Store ”’” + Ptfmpssn + ”’” To Mptfmpssn 
Sum Griticol. 10 Aner res Foc, 
Fmpssn = &mptfmpssn .And. COnlytoday = "F” .Or. 
COnlytoday =""T” .And. Odete = &xXtodauat 
Sum flonpt To Xmonpt For; 
Fmpssn = &mptfmpssn .And. COnlytoday = "F” .Or. 
COnlyutoday = ’T” .And. Odete = a. coda 
LE Xmenpe. 2 0 
Xpoints © Xpoints + & 
EMaie 
Sum Emopt To Xemopt For; 
Fmpssn = &mptfmpssn .And. COnlytodoay = "F” .Or.; 
COnlytodoy -**”"T” .And. Sdate se axtodaupe 
If Xemopt >= 10 
ADOINES..* Kpoines + Ge 
Else 
Xpoints = Xpoints + Xemopt 
Em@ ib 
Sum Roupt fo Xroupt weap. 
Fmpssn = &mptfmpssn .And. COnlytodoy = "F” .Or.; 
(Onlytoday = ”1T” .aAnd. Odate ws = eager 
Do Case 
Case Xroupt < 6 
Xpoilnese=.poilness+ se 
Cose (Xroupt > S .And. XPeupescesie. 
Xpeints*®=s Xpaints + ce 
Cose (Xroupt > 11 .And. Xroupt < 18) 
Xpoints = Apoines. tos 
Coase (Xroupt > 17 .And. Xroupt < 24) 
Xpoints = Xpoints + 6 
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Case Xroupt > 23 
KOOIncS =sxXpoimts + & 
Endcase 


* -- Determine patient classification level based on 
io patient care points -- 
Do Case 
Case Xpoints < 13 
XYevel = "Category [” 
Case (Xpoints > le .And. Xpoints < 32) 
Xlevel = "Category II” 
Case (Xpoints > 31 .And. Xpoints < 64) 
Xlevel = "Category III” 
Case CXpoints > 63 .And. Xpoints < 96) 
Xlevel = "Category [V” 
Case (€Xpoints > 9S .And. Xpoints < 146) 
Xlevel = "Category VU” 
Case Xpoints > 146 
Xlevel = "Category [V” 
Endcase 


Clear 
Secu color fo W+/B,W+/B 


© 7,30 Sau “Patient: ” 
e739) Sau Surpt 
Seoesossat ls In: -” 
@ 8,37 Say Xlevel 
Ge C30 Seu Point Yalue Is: ” 
© 10,46 Say Xpoints 
Glet © -soGue caleulation Complete --— ” 
@ e4&+,ec4t Say ’Press Any Key To Continue” 
Set Console Off 
Woit 
Set Console On 
Loop 
Case Xnuropt = 8 

* —--— Master Screen 
Return 

Endcase 


Release Xnuropt, Xpoints, Xmonpt, Xemopt, Xroupt, Xlevel 
Release Xnow, Xtoday 


Enddo 


yal 


Ht Mt 3 NURSE1.PRG 2h Oe OE RE HR RE RE HE AE RE ak ak Oe IRE RE IE HOE IDE RE RE SOE 20k OE UE SUE AE 20 NE ARE IRE AOE ANE OE IE SE et ate OE 2 aE aE 


* Author: Gary R. Harmeyer LCDR NC USN 
Gee. eO December 1985 

* Screen Generated By: The Softwore Bottling Company 
* OF New York, c1985 

* Purpose: Enables the nurse to enter or 
ne modify a nursing care plan. 
* Input Files Used: Nurseil .Secr and Procfile.Prg 

* Output Files Used: None 

*~ Cooling Koudtine: Nurse .Prg 

* Routine Calls: N_Digg or Indect2eaa 

* Modification Date: + February [386 

* 

“=> Screen Input errogramn For winsac ies 

1 

Do Setup 


Public Xnurslopt 
Do While .T. 
* --— Sereen Display A:Nursel- Sceess 


Set Color io W+7B. Wt7s 

Clear 

PP Flasnt+”’S.A:Nursel.Scr/” 

Set Color ao W+7s  w-7G 

Anurslopess 2 

Do Headings 

© €¢,67 Get Xnurslopt Pict “S” Kangeso 
Read 


* -- Evaluate action based on the option selected =- 
Do Case 


Case Xnurslopt = O 
* == a2 0m & 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xnursiopt = 1 
* -- Enter A New Care Plan 
Do B:N_Diag 
Return 


Case Xnurslopt =e 
* -- Ingctivate A Nursing Gare rian 


ee 


Do B: Inactive 
Return 


Case Xnurslopt = 3 


* -- Nurse’s Master Screen 
Nmenu = ”1” 
Return 


Case Xnurslopt = 4 


* -- Master Screen 
Store ’ ’ To Nmenu 
Return 

Endcase 


Release Xnurslopt 


Enddo 


Za 


% eM N DIAG .PRG 30 We Me A Ae AE AG Te IE Ae AE AE UE AG Ee A Ee Ee Ae AE Ie a Re UE a EE 


* BuLROer : Gory R. Harmeyer LCDR NC USN 
*"Dote: 20 December 1985 

* Screen Generated By: The Software Bottling Company 

~ OF New York, c1985 

* Purpose: Allows the nurse to chose from a 
” menu of four nursing diagnoses. 
* Input Files Used: N_Diag.Scr end Prock ter eed 

* Output Files Used: None 

* Calling Routine: Nursel.Prg 

* Routine Called: Assess_1,Assess_2,Assess_3, or 

* Assess_4.Prg 

*- hedit iGdtien Bake: 1 Pepauecw seo 

* 

“== Sereen Input Poegrem=ror NeiteGiam 

* 

Do Setup 


Public Xndiagopt,Nursdiag, Emoteach,Nrelate,Ngoal ,Nassess 
Public Assoth, Reloth, Goaoth,Ordoth 
Nursdiag = Space(l303 

Emoteach = Space(ig) 

Nrelate = Space(eds) 

Ngoal = Spacel383) 

Nassess = Spacele7} 

Assoth = Space(e27} 

Reloth = Space(e5) 

GoeGcth =F opoucetJg) 

Ordoth Seo pecete, } 


Do While .T. 
* == Sereen Display AgNeUstogeser =a 


Set. Color lo -W+7s).Ws7B 
Clear 

cre losnt 5.0: NCOLCG SCL | 
Set Color WoLwt/B.wt/s 
Xnoleqgepe.=. Ss 

Do Headings 


boa SEerEnD 

@ 22,67 Get Xndiagopt FPict 73” KRenge-c.. 

Read 

* -- Evaluate action based on the option selecrteaae. 
Do Case 


Case Xndiagopt = O 
*# == Sigpee oe 
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Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xndiagopt = 1 
NUSSaGiag ~ “ComEort Alteration In: Pain” 
Do B:Assess_1l 
EooD 


ease, Anaiagopt = c 
Nursdiag = "Communication Impaired: Verbal” 
Do B:Assess_e 
Loop 


Case Xndiagopt = 3 
Nursdiag = "Impaired Physical Mobility” 
Do B:Assess_3 
Loop 


Case Xndiagopt = 4 
Nursdiag = "Self-Care Deficit” 
Do B:Assess_'t 
Loop 


Case Xndiagopt = S 
* -- Nurse’s Master Screen 
Nmenu = ”1” 
Return 


Case Xndiagopt = 6 
* -- Master Screen 
Nmenu = ” ” 
Return 


Endcase 
Release Xndiagopt 


Enddo 


Ziad 


HM eM ASSESS 1.PRG Be He AE Ae EE AE AE UE AE EE RE UE UE RE Uk ERE Ok HE RE EE EEE EE EE 


* Author: Gary R. Harmeyer LCDR NC USN 

* Date: ecO December 1985 

* Screen Generated By: The Software Seturing conpane 

= OF New York, c1985 

= GE pese - Provides a menu for the nurse to 

= select nursing assessments for a 
- patient with a nursing diagnosis 
* of comfort alteration in: paw 
* Input Files Used: Assess_1.Scer and Procfile.Prg 

* Output Files Used: None 

* Calling -Roverne: N_Diag.Prg 

* Routine Caolled: Relate_1.Prg 

* eal teatione lace: 3 FepruGgnue .So5 

J 

* -- Screen Input Program For Assess_1 -- 

& 

Do Setup 


Public Xasslape 
Do Whi le vei. 
* -- Screen Display A:ASsess_1.Scr -- 


Set. Color Moaw+73 W+75 

Clear 

?? Flasht”S.A:Assess_1.Scr/” 

Set Colersto w+, b.wt Bs 

Xasslopt = 11 

Do Headings 

© ece,66 Get Xasslopt Pict “99S” Ranger. 
Read 


* -- Allows the nurse to document assessment of the 
See patient -- 


Do Case 


Case Xasslopt = 1 
Nassess = "Altered Time Perception” 
Do B:Relate_l 
Return 


Case Xasslopt =e 
Nassess = "Alteration In Muscle Tone” 
Do B:Relate_l 
Return 
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Case Xasslopt = 3 
Nassess = "Autonomic Response” 
Boe ore lace _ 1 
Return 


Cass Xasslopt = + 
Nassess = "Distraction Behavior” 
Do B:Relate_1 
Return 


Case Xassilopt = 5& 
Nassess = "Facial Mask” 
Do B:Relate_1l 
Return 


Case Xasslopt = 6 
@ 18,c% Get Assoth; 
Pict ”!XXXXXXXXXXXXXXXXXXXXXXXXXXK” 


Read 

Nassess = Assoth 
Do B:Relate_1l 
Return 


Case Xasslopt = 7 
Nassess = "Guarding Behavior” 
Do B:Relate_l 
Return 


Case Xasslopt = 8 


Nassess = "Impaired Thought Process” 
Do B:Relate_l 
Return 


Case Xasslopt = 9 
Nassess = "Narrowing Focus” 
Do B:Relate_1 
Return 


Case Xasslopt = 10 
Nassess = ”Pacing” 
Do B:Relate_l 
Return 


Case Xasslopt = 11 


Nassess = "Patient Report” 
Do B:Relate_l 
Return 


Case Xasslopt = ie 
Nassess = "Self_Focusing” 


A, 


Do B:Relate_l 
Return 


Case Xasslopt = 13 
Nassess = "Talkative” 
Do B:Relate_1 
Return 


Case Xasslopt = 14 
Nassess = "Verbal Complaint” 
Do B:Relate_l 
Return 


Case Xasslopt = 15 
Nassess = "Verbal Complaint” 
Do B:Relate_l 
Return 


Case Xasslopt = 16 
Nassess = "W/draw From Social Contact” 


Do B:Relate_1l 
Return 


Endcase 
Release Xasslopt 


Enddo 
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Mt Me RELATE 1.PRG 30 AE AE RE HE SRE He AE NE UE HE HE SAE He HE HE REE SHE UE HE HE SRE HE te EE Ne UE EE Ee ake UE ae ode Et 


* Author: Gory R. Harmeyer LCDR NC USN 

Ze. Dote: CO December 1985 

* Screen Generated By: The Softwore Bottling Company 

og | OF New York, ci1985 

* Purpose: Provides a menu for the nurse to 
~ Setect celated foctors for a 

* patient with a nursing diagnosis 
* Of comet ort clteratten in: pain. 
* Input Files Used: Reve@ctesl. ser and Procfile- Prag 

* Output Files Used: None 

Secalling Routine: Assess_1.Prg 

* Routine Called: Gog .frg 

eemiogification Date: ieee bouani.: 1966 

od 

eee > Screen Input Program For Relate_1 -- 

* 

Do Setup 


Public Xrelliopt 


Ho While .T. 


SeeeeSeGeen Yisplay A: Relate _1.ser—— 


see Color fo W+/B,W+/B 

Clear 

fer Lash+”’S.A:Relate_1.Scr/” 

see Color To W+/B,wW+/B 

Xrellopt =e 

Do Headings 

lmee,o/7 Get Xrellopt Pict ”’S” Range 1,7 
Read 


* -- Previous assessment is reloted to some cause -- 
Do Case 


Case Xrellopt = 1 
Nrelate = "Altered Sensation” 
Do B:Goal_1 
Return 


Case Xrellopt =e 
Neelotes= ~Wisease 7 Condition” 
Do B:Goal_i 
Return 


Case Xreliopt = 3 
Nrelote = "Emotional State” 


ef? 


Bo B.- Gone! 
Return 


Case Xrellopt = ¢% 
@17,1% Get Reloth; 
Pict "!XXXXXXXXXXXXXXXXXXXXXXXX” 
Read 
Nrelate = Reloth 
Do. 8: Geatet 
Return 


Case Xrellopt = 5 
Nrelote =. “SucgiGe!  Froceatige 
loys oedle: 
Return 


Case xAXArelloept.="6 
Nrelate = ”*Trauma” 
Do &-Geal_ i 
Return 


Case Xrellopt = 7 
Nrelate = "Treatment Regime” 
bo 6: opal) 
Return 


Endcase 
Release Xrellopt 


Enddo 
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mt Me eM GOAL_1.PRG he HE We AE Oe Ae Ue aE AE Ae HE EE UE HE OE HE Ue Ee EE EE Ee I Ee EE EE Ee EE 


Author: 
Date: 
Screen Generated By: 


Purpose: 


Input Files Used: 
Output Files Used: 
eoliding Routine: 
Routine Called: 
MeGgifFication Date: 


* *& & kk RK €& RK EE EF HE OK HE 


* 


Do Setup 
Bepblic Xgoalopt 


Do While .T. 


Gary R. Harmeyer LCOR NC USN 

CO December 1985 

The Software Bottling Company 
OF New York, ci98S 

Provides a menu for the nurse to 
select a patient goal fora 
patient with a nursing diagnosis 
GiecCemroct OlLEerGEiOn In -apain. 

Geale..sGr ond -rect ile.rrg 

None 

Relate_1.Prg 

NorderiA or NorderiB.Prg 

SePebruary iS86 


seeeoereen Input Progrom For Goal_1i -- 


foe oereen Oisploaty A:Goal_1.Scr -- 


Sec Color Io wW+/B,W+/B 


Clear 


fer iloshnt+’S.A:Goal_1i.Scr/” 
set Color To W+t/B,W+/B 


Reacolopt ~~ c 
Do Headings 


ieee o7 Get Ago@clont Pict "S” Range i,5S 


Read 


ame LOwS murse to Select specific goal attainable 
i Been hsm oe Gime. = — 


Do Case 


Case Xgoaliopt = i 


Ngoal = "Communicates Pain Free” 


Do B:NorderifA 
Return 


Case Xgooliopt = 2 


Ngoal = "Communicates Experiences Less Pain” 


Do B:NorderlA 
Return 


Zon 


Case Xgoglopet +F3 
Ngoal = "Communicates Experience Tolerable Pain” 
Do B:NorderilaA 
Return 


Case Xgoalopt = 4% 
Ngoal = "Demos Skills/Knowledge To Achieve Goal” 
Do B:NorderilB 
Return 


Case xXgooalept =S 
© 17,34 Get Goaoth: 
Pict ”!XXXXXXXXXXXXXXXXXXXXXXXXXXKXKXXXXKXXXX” 
Read 
NGOS! «=. OCoOd@en 
Do B:NorderlA 
Return 


Endcase 
Release Xgoalopt 


Enddo 
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*#£**e NORDER1A. PRG  % #2 i ite 206 6 ie 0 Me te Me OE Me ae Ee le AE ame ame Me ee eae ae ae 


* Author: Gary R. Harmeyer LCDR NC USN 

* Date: 20 December 1985 

* Screen Generated By: The Software Bottling Company 

“ OF New York, c1985 

fut pOSe: Provides a menu for the nurse to 

~ select a nursing order for a pa- 
ne tient whose goal is communicates 
* experiences less/tolerable pain 
* Or iS pain free. 

fm mouc Files Used: NOGEeGIA.Scr, lime, Emosup, sleach 
* Mia react lie.Pre 

* Output Files Used: Orders.Dbf and Ncaredb.DObf 
Secalling Routine: Soe let2 erg 

em Routine Called: None 

Berigdification Date: 3 February 1986 

?-< 

ees Sereen Input Program For NorderiaA -- 

* 

Do Setup 


Public Xnordilaopt 


Beowhile .I. 


* -- Screen Display A:Norderl1A.Scr -- 


Sec Color toca Wt+/B,W+/B 

Clear 

?? Flasht+”S.A:Norder1iA.Scr/” 

Set Color fo W+/B,W+/B 

mmordiacpt = 10 

Do Headings 

eeee.oo Get Xnordiacpt Pict *SS” Range 1,10 
Read 


* -- Nursing orders are determined by evaluating the 

——— case statement, then place data into Nearedb and 
a Saoens ewe ee esas 

Do Case 


Case Xnordiaopt = 1 
Morder = "Assess Pain Factors” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 
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Case Xnordlaapt = ec | 
Morder = "Assess/Evaluate Pain” | 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordlagge 72 
Morder = “*Encouc [fe Use Goring Skrece 
Do B: Time 
Do Replaord 
Do Repnrord | 
Return 


Case Xnordlauge = & 
fearcderc se“ Explain Pece S4teses | 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordlaopt = 5S 
@ 18,10 Get Ordoth; 
Pict ”!XXXXXXXXXXXXXXXXXXXXXXXKXXX” 
Read 
Morder = Ordoth 
BoB. Lime 
Do Replaord 
Do Repnrord 
Return 


Cease Xnordlaont S*6 
Morder = "Offer PRN Medications” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordlaopt = 7 
Morder =, “Provide Emotione) Suppong ee 
Do B:Emosup 
Do Replaord 
Do Repnrord 
Return 


Case Xnordlacpti==s 
Morder = "Schedule Quiet Times” 
Do B: Time 
Do Replaord 
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Do Repnrord 
Return 


Case Xnordilaopt = 9 
Merder = "Teach Alt Coping strategies” 
Do B: Teach 
Do Replaord 
Do Repnrord 
Return 


Case Xnordilaopt = 10 
Morder = "Util Diversional Acti. ties” 
Do B: Time 
Do Replaoord 
Do Repnrord 
Return 


Endcase 
Release Xnordiaopt 


Enddo 


Zig 


Me We Me NORDER1B.PRG We He HE Te Me He ae HE ate IE aie Ae IE ME ME ae Ae MME ate Oe aie ate Ne he BE ate ARE ARE ate RE AE ate i ah eae ate he ae aE 


* Author: Gory R. Harmeyer LCDR NC USN 

*_ Date. CO December 1985 

* Screen Generated By: The Software Bottling Company 

= OF New York, c19B5 

* Purpose: Provides a menu for the nurse to 

- select a nursing order for a pa- 
= tient whose goal is demonstrates 
7 skills and knowledge to achieve 
* goals. 

*~Trnput bites sec Norder18.Scr, Teach & Procf Meares 
* Qutput Files Usex: Orders.Dbf and Ncaoredb.Dbf 
* Colling Reutine: So00/- 1°. Pad 

* Routine Called: None 

* Medificatiean, Uae: 1 February 1986 

* 

* == Screen Input Program for Neosdes lbe—-4 

- 

Do Setup 


PUBLIC AneLe boot 


Do White’... f. 


* —-=> Screen Displiau A: Neorderle. serece 


met Catoc lea -Wt7B.Ww+756 

Clear 

Ce PFILOSGwh tes a NOCOEE LB. Ser? 

Set. Cologeloew+/ Bb. w+78 

Anordilbept * 1 

Do Headings 

@ @2,6/ Get Xnordibopt Pict ~S skonges. 2 


Read 

* -- Nursing orders are determined by evaluating the 
athens case statement, then place data into Ncaredb and 
i Orders.Dbf files -- 

Do Case 


Case Xnerelpapt. =e 
Morder = "Teach: Deep Breathing Exer” 
Do B: Teach 
Do Replaord 
Do Repnrord 
Return 


Case’ X\noeGdl pope. = — 
Morder = "Teach: Prog/sive Relax Exer” 
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Morder = "Teoch: Deep Breathing Exer” 
Do B: Teach 

Do Reploord 

Do Repnrord 

Return 


Coase Xnordibopt = 2 
Morder = "Teach: Prog/sive Relax Exer” 
Do B: Teach 
Do Reploord 
Do Repnrord 
Return 


ease Aneoraibopt .="3 
Morder = "Teach: Relaxation Response” 
Do B: Teach 
Do Reploord 
Do Repnrora 
Return 


Case Xnordibopt = 4 
Morder = *Teoch: Diversionol Activity” 
Do B: Teach 
Do Reploord 
Do Repnrord 
Return 


Case Xnordlbopt = 5S 
@ 18,38 Get Ordoth; 
Pict "!XXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 
Morder = Ordoth 
Do B: Teach 
Do Reploord 
Do Repnrord 
Return 


Endcase 
Release Xnordibopt 


Enddo 
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ee ee TEACH.PRG he ie Ae ee Ae ee ee EE a a 


* Author: Gary R. Harmeyer LCDR NC USN 

* Date: 23 December 1985 

* Screen Generated By: The Software Bottling Company 

= Of New York, cl1938S 

* Purpose: Provides a menu to select teaching 
. requirements of the patient. 

* Input Files Used: Teoch.Scr and Proocki2seakca 

* Output Files Used: None 

* Coal ling Reutine: NorderlA, Norder18B, NordereC, and 
= Norder3eE.Prg 

*ROUGCInNeS Cel red. None 

* Modif l1ecoelvorn Hote: Ser ebeueruy See 

* 

* =- Screen Input Proegsen tons 1eac tus 

* 

Do Setup 


PuBbLiGC® Xteachepe 
Xteachopte = soeacet!) 


Ho while: 


*-=='Sereen Uisplau A: legen... scr =a 


Set Coleorela w/e. we7e 

Clear 

er Filasn+ oo. O. legen, ocr, 

Set Coles sieew+75,u478 

@. 19,54 Get Xteacnope Frick. 
Read 


* -- Validate response -- 


Do While .Not. CXteoachopt —"A” .Or. Xtenchoot™ 3 saa 
Xteachopt = ’C” .0c. xXteschnopss 22 
@ 19 S53ar7€ lear 
Store: s- «leo “Geuchoss 
© ec4,.0 Sau "Re-Enter Letter A. Se. eewocele 
@ 135754 Get? xXtecgecnOot Ficcme 


Read 
Enddo 
“ -- Determine teaching requirements By evolved 
oa option selected -- 
Do Case 


Case Xteachopt = ’A” 
Emateoch.™. “Group teaentng. 


288 


Passdata = ”"Q76 1” 
Eepeine = c 
Return 


Case Xteachopt = "”B” 
Emoteach = "Pre-op Teaching” 
Bossaata = W771” 
Peeoime =. 4 
todagenlyo= ~T” 
Return 


Case Xteachopt = ”C” 
acces oe vlOuS SCCeen 
Return 


Case Xteachopt = ”D” 
Emoteach = "Structured Teaching” 
Passdata = ”Q76 1” 
Ptpoint 4 
Return 


Endcase 
Release xXteachopt 


Enddo 
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MH MM ENOSUP .PRG BH EE TE AE AE AE A AE AE HE HE HE AE Re RE HE HE RE SHE RE RE HE RE RE IE RE SHE SE EE EEE Ee ate ae EE EE 


Au eMnGE. Gary R.Harmeyer LCDR NC USN 

* Wate: 23 December 1985 

* Screen Generated By: The Software Bottling Company 
- OF New York, CISsES 

* Purpose: Provides a menu to select emotional 
= Support requirements of the 
* Patient. 

* Input Files Used: Emosup.Scecr and Precriletkad 

* Output Files Used: None 

* Colling Routine: NorderlA, NordertC, Nordert4D, 
a ond NordertE:- rae 

* Routine Called: None 

* Modification Date: eS Janvuasu lace 

od 

* == SCreen. Input Program FOG renest  maaas 

- 

Do Setup 


Public Xesupopt 
Xesupopt = Space(l1j 


Bor Winilke wei: 
“== -S5CLreCen ULSplau A: EmOSup. SCc. == 


set Coler To W+/B,Wt7e 

Clear 

cf FLOSS Sac bmostia., Scr 
Set Color To Wt/B,W+/B 

Gel, S54 Seu. .esupone Pic. - >" 
Read 


* -- VUalidate response -- 


Do While .Not. CXesupopt =#"A” .Or. Xesupopt = 8B” lane 
Xesupopt =e CC .0r. Xesupopt]"0” } 
CG et a3 Gleer 
Store * ’ To Xesupopt 
@ 2€4,0 Say R@-Enter Letter A, 8B. Cioe se. 
@'el.54 Get xXesupept Frce 7 


Read 
Enddo 
* -- Determine emotional support requirements bu evar. 
< uating the option selected -- 
Do Case 
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Case Xesupopt = ”A” 
PUsreechaite fFe7homiliyu Support” 
PoSsSsogcGur G7. | 
Bnanaginmt = 4 
Return 


Case Xesupopt = ”B” 
Emoteach = "Modify Lifestyle” 
hassooto..€ 2-080 1” 
PrGweime = & 
Return 


Case Xesupopt = ”C” 
Emoteach = "Sensory Deprivation” 
Passcato = "USde 1” 
ENopolnt,.="S 
Return 


Case Xesupopt = ”D” 


* -- Return to previous screen 
Return 
Endcase 


Release Xesupopt 


Enddo 
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Wt We He ASSESS 2.PRG WU Me Ae IR Re ae AE Re ee IR Ne IR RE I a A I RE RE EO I a EE I I a ee a 


* Author: Gary R. Haormeyer LCUR NC USN 

* Date: 23 December 1985 

* Screen Generated By: The Softwore Bottling Company 

- OF New York, elses 

* Purpose: Provides a menu for the nurse to 
= select nursing assessment for a 
S patient with a nursing diagnosis 
- oF communication impartamere. 

* verbal. 

* Input Files Used: Assess_¢e.Scr and Procfile.Prg 

* Output Files Used: None 

~ Calbind houcime. NZD loge eG 

* Routine Called: Relates c Fag 

* TodiFicatrvem Date. 3 February  fSes 

ed 

7 = JCCeEen input, -oognamn (Of Assess =c lar 

Sd 

Do Setup 


PubLlICS Aassecore 


Do White «1. 


* -~- Screen Display A:Assess_e2.Scr -- 
set Color To W+7B. vt7B 
Clear | 


?°? Flash+”S.A:Assess_e.Scr/” 

Set COlCE sl losl+, o,w+/7B 

Xasscopt = Q1 

Do Headings 

@ 22,67 Get xXasscopt Pict. “SS” Range os 
Read 


* -- Allows nurse to document assessment of the 
oe patgent<+= 


Do Case 


Case Xassceopt = 1 
Nassess = “Anxiety” 
Do B:Relate_e 
Return 


Case Xasseapt = ec 
Nassess = "Disorientation” 
Do B:Relate_2 
Return 


OE 


Case Xasscecopt = 3 
Nassess @ ”Fear” 
Do B:Relate_e 
Return 


Case Xasseopt = ¢t 
Nassess @ ”Frustration” 
Do B:Relate_e 
Return 


Case Xasseopt = S 
@ 17,e4% Get Assotn; 
Bete eX XK XK AKA K AKA KAA AKAAKAXXXXXXX”’ 
Read 
Nassess = Assothn 
Do B:Relate_e 
Return 


Case Xasseopt = 6 
Nassess = "Inability to Hear” 
Do B:Relate_e 
Return 


Case Xasseopt = 7 
Nassess # "Inability to Speak” 
Do B:Relate_e 
Return 


Case Xasseopt = 8 
Nassess = "*Incomprehensible Speech” 
Do B:Relate_e 
Return 


Case Xasseopt = 9g 
Nassess = "Refusal to Speak” 
Do B:Relate_e 
Return 


Case Xasseopt = 10 
Nassess = "Slurring” 
Do B:Relate_e 
Return 


Coase Xasseopt = il 
Nassess = "Stuttering” 
Do B:Relate_e 
Return 


Case Xasseopt = ic 
Nossess = "Tearfulness” 
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Do B: Relate _2 
Return 


Ease x*XaSscopiaese ia 
Nessess = Thneclegne, Jiscadem. 
Do 8: Relate ce 
Return 


Endcase 
Release Xasseopt 


Enddo 


294 





1 Me he RELATE_2.PRG Ae AG Ee Ae a A Ae TE NE NE AE EE IE BNE OE OE Oe OE I RE Oe IE Oe NE Oe OE ae ae OE a ae he a ae te at 


*e ££ € Fe eK Ee ERE HE KH 


* 


Author: Gary R. Harmeyer LCDR NC USN 

Date: 23 December 1985 

Screen Generated By: The Software Bottling Company 

| OF New York, c198S5 

Purpose: Provides a menu for the nurse to 
select related factors for a pa- 
tient with a nursing diagnosis of 
Communication, impaired: verbal. 

Input Files Used: Peeeeee seco eame Poockilea.Prg 

Output Files Used: None 

Calling Routine: Assess_ec.Prg 

Routine Called: Saas oO 

MeaifFication Date: Sa Pebruary S66 


-— screen Input Program For Relate_e -- 


Do Setup 
Public Xreleopt 


Do While .TI. 


femme semcen Hisoayu Askelate_e.Scr -— 


set Color To W+/B,W+/B 

Clear 

far Lash+”’S.A:Relate_e.Ser/” 

eet Color to W+/B8,Wt+/B 

Aceleopt = 01 

Do Headings 

Spec ,o/7 Get Areleopt Pict "99” Range 1,10 
Read 


* --— Previous assessment is related to some cause -- 
Do Case 


Case Xreleopt = il 
Nrelate = "Anatomical Impairment” 
Hows: boal_e 
Return 


Case Xreleopt =e 
Nrelate = "Cultural Difference” 
Hees. Goal le 
Return 


Case Xreleopt = 3 
Nrelate = "Developmental Age” 
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Do B:Goal_e 
Return 


Case Xreleopt = 4 
Nrelate = "Disease Process” 
Ue" 8: Geateve 
Return 


Case XxXreligoput ="s 
@ 17,14 Get Reloth; 
Pict "'!XXXXXXXXXKKXRKXAAK KR ee 
Read 
Nrelate = Reloth 
De. 8: G0G1—c 
Return 


Case Xreleopt = 6 
Nrelate = "Foreign Language” 
De 8:°6ee7-c 
Return 


Case Xreleopt = 7 
Nrelate = "Mental Capacity” 
DGS: boel=e 
Return 


Case Xreleopt = 8 
Neelate vy. “Sedation” 
Bo B-Geqciec 
Return 


Case xXreleopt = 3 
Nrelate.™ "Surgical Procedure” 
UG48 Goal ae 
Return 


Case Xreleopt = 10 
Nrelate = "Treatment Regime” 
HOUR “Sealezte 
Return 


Endcase 
Release Xreleopt 


Enada 
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eH He GOAL 2.PRG We SH SH SN SAE SH RE RG Be aie ESE SE SE NE RE GRE SE SE SE SE te SE NE ESE ak Ea RE ESE SE Sa a at Et 


Author: 
Date: 
Screen Generated Bu: 


Purpose: 


Input Files Used: 
Output Files Used: 
Batlling Routine: 
Routine Called: 
MoaiFication Date: 


exe eee eee ERE KR HH K 


* 


Do Setup 
BuUBLic Xgoaceopt 


moewhile .1. 


Gary R. Harmeyer LCDR NC USN 

23 December 1985 

The Software Bottling Company 
OF New York, cl1385 

Provides a menu for the nurse to 
select dg patient goal for a.pa- 
tient with a nursing diagnosis of 
communication, impaired: verbal. 

bocce c ocr Ond FProcfile.Prg 

None 

Releve ~2.Prg 

NordereA, NordereB or NorderelC.Prg 

Serepmuocyu 13986 


Saecemeenm lmput Program For Goal_ec -- 


foes seceen Display A:Goal_¢c.Ser -- 


pec Golor fo W+/E,Ww+/8 


Clear 


Paeiashi+ S.A: Goal_e.Scr/” 
sec Color [fo W+/B,W+/B 


Raoducopt = 1 
Do Headings 


emeec.o7 Get XgeCacepte Pict °*3” Range 1,7 


Read 


* -- Allows nurse to select specific goal attainable 
a — Du Enis pagent. -— 


Do Case 


Case Xgoaeopt = 1 


Ngoal = "Communicates Needs Through Words” 


Do B:NordereanA 
Return 


Case Xgeoaeopt = 2 


Ngoal = "Comm Needs Through Mechanical Tools” 


Do B:NordereA 
Return 


eri 


Case Xgoaeopt = 3 
Ngoal = "Demos Skills to Achieve Goals” 
Do B:NordereCc 
Return 


Case Xgoaceopt = 4 
@ 16,e1 Get Goaeth- 
Pict "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXKXXXXX” 
Read 
Ngoa = Coeaeen 
Do B:Nordercanr 
Return 


Case Xgoaecopt = 5 
Ngool = "Reports Less Anxiety” 
Do B:NordereB 
Return 


Case Xgoaecopt = 6 
Ngoal = "Reports Less Fear” 
Do B:NordercB 
Return 


Case Xgoacopt = 7 
Ngooal = "Reports Less Stress” 
Do B:NorderceB 
Return 


Endcase 
Release Xgoacopt 


Enddo 
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7 NORDERCA , PRG Sb HR Sb UE Re ate ate Sie Oe Ae ee ee AOE ARE AOE Ae ae AGE a UE ate ate AE SE a ae OE ae Oe a a a ee a a a a 


5g 


*e* ¢ © © # € & € F& FF € FE eH 


Ruthor: 
Dote: 
Screen Generated By: 


Purpose: 


Input Files Used: 


Output Files Used: 
Colling Routine: 
Routine Called: 
Medification Date: 


Gary R. Harmeyer LCDR NC USN 

C3 December 1985 

Lhe serewere Bottling, Eompanyu 
OF New York, ciS3BS 

Provides a menu for the nurse to 
select a nursing order for a pao- 
tient whose goal 1S communicates 
needs through use of words or 
mechanical tools. 

NordereA.Scr, Time, Emosup and 
Peeecrile. Frog 

Orders and Ncoredb.Dbf 

Beal @enirr 

None 

3 February 13986 


Seesocreen Input Program For NordereaA -- 


mo Setup 
Peerrec Xnordceacpt 


Do While .T. 


fees ocreen Display A:NordercA.Scr -- 


eet, Color To W+/B,W+/B 


Clear 


meer lash+”’S.A:NordercecA.Scr/” 
mee Color To Wt/B,W+/B 


Amordecaopt = Qi 
Do Headings 


Geee.,o7 Get Anordeaopt Pict ’99” Range 1,10 


Read 

Seas NULCSINgG Orders cre determined by evaluating the 
———— Sacco raceme he, wemnenm DlOCce data ynte Neeredd> and 
a — Orders.Dbf files -- 

Do Case 


Case Xnordeaopt = 


Morder = "Apprise Others of Comm Prob” 


Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordecabpe =se 


Marder = 


"Provide Em@ticnal  suppeges 


Do B:Emosup 
Do Replaord 
Do Repnrord 


Return 


Cose xXneordeaepey=—4 


Morder = 


Do B: Time 


*"Previde Paper and Pencil. 


Do Reploord 
Do Repnrord 


Return 


Cose Xnordeaopt = tt 


MOrdere = 


Do B: Time 


*Provide Spelling  Searda. 


Do Replaord 
Do Repnrord 


Return 


Coase Xnecdeaapt = 5S 
@-16, 1 Get Ordotn: 
Pict "!XXXXXXXXXXXXXXXXXXXAXXxXK eee 


Read 


ferder =—feadarn 


Do. 8: Time 


Do Replccrd 
Do Repnrord 


Return 


Case Xnordeaopt = 6 


Morder = 
Do B: Time 


“Prov translated Prase Crore 


Do Replaord 
De Kepmeerda 


Return 


Case Xnordesopt = 7 


Morder = 
Do B: Time 


“Peovice Translator | 


Do Replaord 
Do Repnrord 


Return 


Case Xnordeaopt = 8 


Morder = 
Do B: Time 


"Simple Questions w/ Y/N Ans” 


Do Reploord 


300 


Doe reparpord 
Return 


EASe=Anerdcecnt = 3 
Morder = "Use Sign Language” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Base Xncracaope = 10 
Morder = "Use Establishd Comm for ADL” 
Do Replaord 
Do Repnrord 
Return 


Endcase 
Release Xnordecaopt 


Prnado 


* Author: Gory R. Harmeyer LCDR NC USN 

*— Sore, C3 December 1985 

* Screen Generoted By: The Software Bottling Company 

- OF New Yorks crsba 

* Purpose: Provides a menu for the nurse to 

* select o nursing GEeeRyE Sara 

* patient whose goal 1s reports de- 
* creased level of stress, anxiety 
* On fear. 

= [nput. Sites Usea- NordereB.Scr, Time and Procfile yeas 
“ Output Files Used: Orders and Ncoredb.Dbf 

* EColiing Rovere: S001 S25bc0 

* ROUEING Balled: None 

* HOG 1eatien Uaee: 5 February i Ses 

& 

* == Screen Input Program ror eNGr@ene sts 

* 

Do Setup 


PuUbLISe. Kmercdepope 
Boa While «i 
* =-- Screen Display A: Nesdeces. Sec. _- 


Sets 201 Or. leew. Ew Ss 

Clear 

er Flesh’ Sa: NOragdercs. Ser7 ~ 

Set. Color Tarws7 es w+7s 

XHSraecoope =s01 

Do Headings 

© ee. 66 Get Anordebopt Pict “SS” Kangen. s 
Read 


* -- Nursing orders are determinec by €valeeieeene 

“ -- cose statement, then ploce data into Nearedb and 
a GeGgiecs.Dbt  E212es*-; 

Do Case 


Case Xnordebopt = 1 
Morder = "Encour Pt To Spedqk Slow 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordebopt = ec 
Morder = "Encou Toa Util Eope Strarece 


20s 


Do B: Time 
Do Replaord 
Do Repnrord 
Return 


fase Amordebopt = 3 
feeder = “Exploim Puree & Elicit Ques” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Bese XxXnoerdcebDopt = 4 
HeEHeS =) Peovide Spelling Board” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordebopt = 5S 
GeTBs10 Get Ordotn: 
Bret. | OXXXXXXXKKXXXXKXXXXXXXXXXXX” 
Read 
Hoesaer = Ocdoth 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Soase xXmordcbopt = & 
Morder = "Prov Translated Phase Chart” 
Do B: Time 
Do. Replaord 
Doe RepRrora 
Return 


Case Xnordebopt = 7 
MNoOpGer = Provide Translator” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordebopt = B 
Morder = "Simple Questions w/ Y/N Ans” 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


De® 


Case Aneseerope = ao 
Morder = "Use Sign Language” 
Do B: Time 
Do Reploaord 
Do Repnrord 
Return 


Case’ Xneocucsonr = 16 
Morder = "Use Establishd Comm for ADL” 
Do Replaord 
Do Repnrord 
Return 


Endcase 
Release Xnordebopt 


Enade 
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1 1 2 NORDEReC. PRG Se ESTHET STS SCS SSSS SHES SSHSEEHEHEHE HEE 


= Author: Santen noemeles LEDR NG USN 

= Date: e3 December 1985 

* Screen Generated By: The Software Bottling Company 

* OF New York, c1938S 

= Purpose: Provides a menu for the nurse to 

_ select a nursing order for a pa- 
- tient whose goal is demonstrates 
= skills to achieve goals. 

* Input Files Used: Nepaaisceases, leoem & Prockile.Prg¢ 
Seeecput Files Used: Orders and Ncoredb.Dbf 

“ Colling Routine: Goa la2 .Feg 

Sereoutine Called: None 

Eerigdification Date: Pf febsuaccy 1366 

Ta) 

es screen input Program For NordereC -- 

& 

Pen sgecup 


mealic Xnordecapt 
Hea While .T. 
eee oereen Display A:NordereC.Scr -- 


Seec Color Io W+/B,W+/B 

Clear 

meer lash+’S.A:Nordercl.Scr/” 

eee Color To W+/B,wW+/B 

Amoardecopt = 1 

Do Headings 

eee, of, O22 AMardecopt Pict °S” Range 1,39 


Read 

* -- Nursing orders are determined by evaluating the 

———— Ease stacenent,. cnem place Goto mtoe Nearedb and 
—-— Orders .Dbf Files -- 

Do Case 


Bese Xnerdecopt = 1 
feogeee = leach: Blink Ix No, ex Yes” 
Do B:Teach 
Do Replaord 
Do Repnrord 
Return 


Case Xnordecopt = 2 


homie = Leqgemn lo Squeeze Hand % Y/N” 
Do 8B: Teach 
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Do Replaord 
Do Repnrord 
Return 


Case Xnesadecoape = 4 
Morder = "Teach Use OF Mech Device” 
Do 8B: reaeck 
Do Replaord 
Do Repnrord 
Return 


Case Anoraceaut = 4 
Morder = "Apprise Others of Comm Prob” 
Do B: Time 
Do (Ken laora 
Do Repnrord 
Return 


Case AnOrageceoapt. = S 
@ 16-30 Gee Ordotn- 
Pict "!XXXXXXXXXXXXXXXXXXXXXKXXXKXKXK” 
Read 
Morder = Ordoth 
Do: 8: teach 
Do Replaord 
Do Repnrord 
Return 


Gase Xnordeecopt,='6 
Morder = "Teach: Deep Breathing Exer” 
Doe: 8B. tedden 
Do Replaord 
Do Repnrord 
Return 


Case Xnordecopt = 7 
Morder = "Teach: Diversional AREtivicy 
Do -8: Teach 
Do Replaord 
Do Repnrord 
Return 


Case Anordecop:e = 8 
Morder = "Teach: Prog/sive Relaxation” 
Do B: Teach 
Do Replaord 
Do Repnrord 
Return 
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Gese  Xroseccopt’ ="s 
MNorder = "Teach: Relaxation Response” 
Do B: Time 
Do Repliocord 
Do Repnrord 
Return 


Endcase 
Release Xnordecopt 


Enddo 
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1 te wt ASSESS _3 : PRG WOR We AE WE TE Ak AOE AOE Ue AE TE WE AE OE Ee Ae AEE EE AOE AOE AE ae ae ae EEE ea ae ae ae a 


*= Author: Gary R. Harmeyer LCDR NC USN 

* Dote: 23 December 1985 

* Screen Generated By: The Softwore Bottling Company 

= Of New York, ecilseso 

* Purpose: Provides a menu for the nurse to 

- select nursing assessment for a 

= patient with a nursing diagnosis 

a OF impaired physical mobility. 

* Input Files Used: Assess_3.Scr and Procfile.Prg 

* QUueput wes Used: None | 
*“ Colling Routine: Neb tageerc | 
* Routine Called: Relate_3.Prg 
* Modification Date: 4 February ido 

* -- Screen Input Program For Assess_3 -- 

* 

Do Setup 


Public Xass3opt 


Do Unites. i. 


* -- Screen Display A:Assess_3.Ser -- 


Set Colerc, forws7 b.wt se 

Clear 
?? Flash+”S.A:Assess_3.Scer/” | 
Set Getor fo°WU+/b .W+7e8 

Xassjepen= 701 

Do Headings 

@ e2,.65 Get Xass3o0pt Pict “SS” Range 172 

Read 


* -- Allows nurse to document assessment of the 
—-— patlents-= 


Do Case 


Case Xass3opt = 1 
Nassess = "Confinement Imposed” 
Do B:Relate_3 
Return 


Case Xass3opt =e 
Nassess = "Fatiques Easily” 
Do B:Relate_3 
Return 
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Case Xass3opt = 3 
Nassess * "Goit Impoirement” 
Do B:Relate_3 
Return 


Cose Xass3opt = ¢& 
Nassess * "IJmpoired Coordination” 
Do B:Relate_3 
Return 


Case Xass3opt = 5 
Nassess = "Inability to Ambulate” 
Do B:Relate_3 
Return 


Case Xass3opt = 6 
@ 18,13 Get Assoth; 
Fete tee KO XK KOK XK XX KKK XKKXKXXKXX” 
Read 
Nassess = Assothn 
Do B:Relate_3 
Return 


Case Xass3opt = 7 
Nassess * "Inability to Transfer” 
Do B:Relate_3 
Return 


Coase Xass3opt = & 
Nassess ™ "Inability to Turn” 
Do B:Relate_3 
Return 


Case Xass3opt = 9 
Nassess = "Limited Range Of Motion” 
Do B:Relate_3 
Return 


Case Xass3opt = 10 
Nassess = "Reluctant To Move” 
Do B:Relate_3 
Return 


Case Xass3opt = 11 
Nossess = "Use Of AsSsSsSiStive Devices” 
Do B:Relate_3 
Return 


Endcase 
Release Xass3opt 
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oe He ee RELATE 3.PRG ee A Ee 


Author: Gary R. Harmeyer LCOR NC USN | 


* 

* Date: 23 December 1985 

* Screen Generated By: The Software Bottling Company 

7 OF New York, cGilSes 

* Purpose: Provides a menu for the nurse to 
= select related factors fora 

= patient with a nursing diagnosis 
* of impaired physical mebyercie 
* Input Files Used: Relete_3.Scecr and Procirlevece 

* Output Files Used: None 

“ Calling Keuitine: Assess_J3.Prg 

* Routine Called: GGq)/223rcq 

* NoOadle tecatron Dece; 3 February PS8sS 

Sd 

* —- Screen Input Program for keletemomae 

-* 

Do Setup 


Public Xrel3opt 


Do While .T. 


* -- Screen Display A:Relate_3.Scr -- 


Ciesar 

ve Filosn+ S. pe re Gee o.5er7 

Set, Ceolanr -vaewt7 By Ww+7b 

Arelscour =-01 

Do Headings 

© 2@€&,.67 Get Xrel3opt Pict “S”  Kange 2G 
Read 


Set Color ta W788 w+/7s 
| 


* --—- Prevlous assessment 1S related to some causs -- 
Do Case 


Case Xrel3opt = 1 
Nrelate = "Decrease Act Tolerance” 
Dose -Geale3 
Return 


Case Xrel3opt = 2 
Nrelate = "Musculoskeletal Function” 
Doe8- coogi se 
Return 


Case Xrel3opt = 3 
Nrelate = "Neuromuscular Function” 
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De seeaecoal 3 
Return 


Case Xrel3opt = 4 
Nrelate = "Pain / Discomfort” 
Dore: Geaqd 3 
Return 


Case Xrel3opt = 5 
Nrelate - "Treatment Regime” 
Hoes. Godl. 4 
Return 


Case Xrel3opt = 6 
C@ 18,36 Get Reloth; 
Pict "!XXXXXXXXXXXXXXXXXXXXXXXX” 
Read 
Nrelate = Reloth 
Hees: Goal 3 
Return 


Endcase 
Release Xrel3opt 


Enddo 


Det 


Ht ee GOAL 3.PRG We He Ne Be he ake he ae ae OE ae UE EE Re a he ae ae Re a ae ae ae a ae ae a EE Ee ae ae ae ade ae ae a ae 


* Author: Gary R. Harmeyer LCDR NC USN 

* Hate: 23 December 1985 

* Screen Generated By: The Softwore Bottling Company 

5 OF New York, eG¥aee 

* Purpose: Provides a menu for the nurse to 
a select a patient goal fora 

~ patient with a nursing diagnosis 
. of impaired physical mebi tae 
* Input Files Used: G0a0q1_3.Scr and Orarac read 

* Output Files Used: None 

*Cel ling Reutrne: Relate_3.Prg 

* Routine Called: Norder3A, Norder3B, Norder3Cc, 

* Norder3D or Norder3E.Prg 

* Medi :catien Date: 3 Februcqcy ass 

* 

* =- Sereen Input Peegcam For bOqt Jaane 

1 

Do Setup 


FUDI IC goqsent 


Do While .T. 


= i==/5CrCSeN OL SpLau Ai: GOGl=]. Scl = 


Se Color lo-wt/7 8. wU+7eB 

Clear 

ce Figshtmo.AoOGdl=3 .5c6r/ 

Set (Cooler Be, w+7B,W+78 

XgGeeIonc Feo! 

Do Headings 

© e€e,65 Get xAgoeasepe Pict “SS Range ae 
Read 


* -- Allows nurse to select specific goal attainable 
oS Dye this petient, -— 


Do Case 


Case Xgoa3yapt = 1 
Ngoal = "Able To Transfer Independently” 
Do B:Norder3D 
Return 


Case Xgoa3sapt =e 
Ngool = "Able To Transfer With Assistance” 
Do B:Norder3D 
Return 
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Case Xgoa3opt = 3 
Ngoal = "Demos Skilis to Achieve Goals” 
Do B:Norder3E 
Return 


Case Xgoa3cpt = & 
Ngoal = "Increase Range Of Motion CROM)” 
Do B:Norder3Aa 
Return 


Case Xgoa3opt = 5 
N@aecweeeanhGtme EFEective Breathing Pattern” 
Do B:Norder3A 
Return 


Case Xgoa3c0pt = 6 
@ 18,21 Get Goaoth; 
Pict "!XXXXXXXXXXXXXXXXXXXXKXXXKXKXXXXXXKXXXXXKXK” 
Read 
Ngoal esGoooth 
Do B:Norder3B 
Return 


Case Xgoasopt = 7 
leew = = anc adlas hulls Range Of hotion CROM)” 
Do B:Norder3Aa 
Return 


Coase Xgoa3opt = 8 
NGG timtains Patterm OF Elimination” 
Do B:Norder3C 
Return 


Case Xgoa3apt = 9g 
Ngool = “Maintains Skin Integrity” 
Do B:Norder3B 
Return 


Cose Xgoa3cpt = 10 
Ngoal = "No Additional Contractures” 
Do B:Norders3A 
Return 


Case Xgoa3opt = 11 
NEGGlewE ys Ferlerms Activitu OF Daily LivimgCADL)” 
Do B:Norder3C 
Return 


Endcase 
Release Xgoa3aopt 


ote 
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* Aue hee: Gary R. Harmeyer LCDR NC USN 

* Date: e3 December 1985 

* Screen Generated By: The Software Bottling Company 

OF New York, eGigms 

* Purpose: Provides a menu for the nurse to 
= select a nursing order fora 

” patient whose goal is maintains 
* maintains full range of motion 
7 CRON], increases ROM or no added 
” COntractCuges: 

* Input Files Usec: Norder3A.Scer, Time and Drprec cree 
* Output Files Used: Orders and Necoredb.Dbf 

* Calling Reurrne:. Goel2sacerg 

* KOuUGine Cal lea: None 

* NeEGlt LCOtenestace: 5 February see 

* 

= —— Sereen Inpuc Proegram for VNOPders shia 

i 

Do Setup 


EUDMIEe. xt Mere Joop 
De While 7. 
* == Screen Display A: Norderc3A. Serica 


Set Coloer- to W+/7B,8r7s 

Elear 

T? OF lash+-5.e> NOGOCEIA. SCE? 

Set Color te wt7 Eb. wU+7E 

ANOEGsqepe, =. 1 

Do Headings 

C ecec,GG& Get Xneordsq0pt Pict "*S” “kenge eae 
Read 


* -- Nursing orders are determined by evaluating the 
Pi case statement, -hen place dota into Ncaredb and 
——— Orders.Dbf files -- 

Do Case 


Case Xnord3aopt = 1 
Morder = "Active Range OF Motion” 
Do B: Time 
Do Reploord 
Do Repnrord 
Return 
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Case Xnord3aopt = e 
Morder = "Cough & Deep Breath” 
Do B: Time 
Do Cough 
Do Replaord 
Do Repnrord 
Return 


Ease Anordsqopt — 3 
Morder - "Encourage Independent ADL” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3aopt = 4 
Morder = "Gradual Increase ADL Actity” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3aopt = 5S 
Cie oO See Oraecthn:. 
Pict ”°!XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 
MGeGere— Ordocrn 
Do B: Time 
Do Reploaoord 
Do Repnrord 
Return 


Case Xnord3aopt = 6 
Morder = "Passive Range Of Motion” 
Do B: Time 
Do Range 
Do Replaord 
Do Repnrord 
Return 


EQSe xXnorasqcopt = 7 
mopder = “Positioning” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3aopt = 8 


MOneemr es"  TUrhIng ” 
Do B: Time 


oa) 


Do Replaord 
Do Repnrord 
Return 


Case Xnord3a0cpt = Q9 
Morder = "AcCom Pt OFF Wd (C515 <SsOmnaw 
Passdota = "055 e” 
PEROT nee ae 
Do Replaord 
Do Repnrord 
Return 


Coase “mera soene.— Le 
Morder = “Accompy Ft GFE Wa (> 30a 
FOSSdGto wes Goo os 
PG ao picasa 
Do Replaord 
a> Reprreca 
Return 


Endcase 
Release Xnord3acpt 


Enddo 


He NORDER3B 5 PRG He he Ae Me he eee ae ate HE ae ate ate aa ea Ea EE 


=e Author: Gary R. Harmeyer LCDR NC USN 

= Oote: 23 December 1985 

* Screen Generated By: The Software Bottling Company 

* | WEeNew York, cl385 

ferurpOose: Provides a menu for the nurse to 
> select a nursing order fora 

* patient whose goal is maintains 
” maimtcains Skin integritu or 

= selects other For the gaal. 
seinput Files Used: N@nGQengab.cee. lime and Precfile.Pre 
fe Output Files Used: Orders and Ncoredbh.DbfF 

eeealling Routine: Boeles Pag 

* Routine Called: None 

gerredification Uate: Se veosuGri 166 

* 

fees Sereen Input Program For Norder3B -- 

*% 

Do Setup 


eaplic Xnord3bopt 


Do While .T. 


fee ocreen Display A:Norder3B.Scr -- 


set Color fo W+/B,W+/B 

Clear 

fre r Losh+"*S.A:Norder3B.Scr/” 

pec color io W+/B,W+/B 

maar ashopt = O1 

Do Headings 

Pees oo oct xAmnerdsbopt Pict °SS” Range 1,11 
Read 


* -- Nursing orders are determined by evaluating the 
se case stotement, then place data into Ncaredhb and 
| Orders.Ohf files -- 

Do Case 


Case Xnord3bopt = i 
Morder = "Ambulate” 
Do B: Time 
Do Reploord 
Do Repnrord 
Return 


Case Xnord3bopt =e 
Morder = "Assist To Select Diet” 
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Do B: tame 
Do Replaord 
Do Repnrord 
Return 


Case xXneLcecnopte = "sa 
Morder = "Encourage Independent ADL” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Anepasbept. 4 
Morder = "Massage-Promote Circulation” 
Do B:Time 
Do Reploord 
Do Repnrord 
Return 


Case Xnord3bopt = 5 
Morder = "Possessions w/in Reach” 
Do Reploord 
Do Repnrord 
Return 


Coase Xnoecesbope — & 
@ 18,30 Get Ordoth; 
Pict ”"!XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 
HNosdes.™=.GEGoEn 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3bopt = 7 
Morder **. Position” 
Do B:Time 
Do Reploord 
Do Repnrord 
Return 


Case Xnord3bopt = 6 
Morder = ”*Protect Bony Prominences” 
Do Vee Fine 
Do Replaord 
Do Repnrord 
Return 


jane 


Case Xnord3bopt = 9 
Morder = "Protect Pressure Areas” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3bopt = 10 
Morder = ”Provide Safe Environment” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3bopt = 11 
Mordere™ "“Sideragils” 
Do B: Time 
Do Replaord 
Qo Repnrord 
Return 


Endcase 
Release Xnord3bopt 


Enddo 


ao 
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* Author: Gary R. Harmeyer LCDR NC USN 

* Date: 23 December 1985 

* Screen Generated By: The Software Bottling Company 

“3 OF New York, clISes 

* Purpose: Provides a menu for the nurse to 

. select a nursing order for a 

a patient whose goal is maintains 
Z nattern of eCliminctlioneer pec. 

— Forms activities oF daily living 
* CADLI. 

* [Input Files Used: Norder3C.Scr, Time and Proct i leneae 
* OQutput Files Used: Orders and Ncoaredb.DbFf 

* Collinge Rovere: GeG lva,erg 

* Routine Called: None 

* Modification, Date- 1 February) lee 

* 

* ==> Screen Input Program For Noreerst-_. 

* 

Do Setup 


PublIe Anerasccept 
Ha While vat 
* =="Screen Visplau- A: Norderc Jc ser — 


Set Colereto. Ut7 ob 4U4/7 8 

Clear 

eo? Fleas S.A: NOEGersaC. ser? 

Set Colerstewwt/7 8. W+7s 

AnereJecoue,=. 2 

Do Headings 

@ e2,657 Gee xXnordscont. Pict “3S” Karnge es 


Read 

* -- Nursing orders are determined by evaluating the 

= > case statement, then place data into Nearedb and 
a ae OnGers, PG G1 cS = 

Do Case 


Case Xnorad3scopt.=—s#1 
Morder = "Ambulate with Assistance” 


Do B: Time 
Do Case 
Case (Timeopt < S .Or. Timeopt = 413 
* -- No precise Frequency given 


Passdoata = ’Q51 18” 
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Pepolne Fo 

Case (Timeopt > 4+ .And. Timeopt < 22) 
cee eed 
Passdoea™= ~“OSi1. 11° 
Sr perhees c 

Case CTimeopt >» 21 .And. Timeopt < 25) 
== XGegon sol 
Passdota = "051 le” 
Pe wOt mit a 

Case (Timeopt > 24 .And. Timeopt < 31] 
a — Kes Or Tp 
Fasscdutar “OQSi 13” 
Repent. oO 

Case C(Timeopt > 30 .And. Timeopt < 343) 
o— = ereor G1p 
Possdatay = “US1l 1%” 
SERGI VG ao 

Case CTimeopt = 34 .Or. Timeopt = 35) 
eset Git h 
RassGgota =) Q5!1 15” 
Peneini ~wl ec 

Case CTimeopt = 36 .Or. Timeopt = 373) 
cl .eioeor Ueh 
Passdata + "051 16” 
Pepe nice = met 

Ease Climeope ss” 38 .Oc. Timeopt 
Tino ee tor Cl 
Rosscatea = G51 17” 
repel nee t6 

Endcase 


Sys. 


Do Replaord 
Do Repnrord 
Return 


Case Xnord3copt = 2 
Morder = "Increase Independ Doing ADL” 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3copt = 3 
hiGageho= "Flam For Continuing Care” 
Do Replaord 
Do Repnrord 
Return 


Ease XnordScopt = 4 


Morder = ”Position” 
Do B:Time 


ae 


Do Replaord 
Do Repnrord 
Return 


Ease AneSasGopeaes 
ee, co Gee rao. 
Pict "! XXXXXXXXXXXKXXAXXXK KARR 
Read 
Merder’.= Ordoetn 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3copt = 6 
Morder =, Range OF Noten CRO 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3copt = 7 
Morder = "Diet To Promote GI Function” 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3copt = 6 
Neordes = Sluch” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Endcase 
Release Xnord3copt 


Enddo 


Digg 


Hh NORDER3D , PRG ie Ee A ME SUE AE aie ae AE IE AE IE A EIR aE EE Ee a RE ee a oe 


* Author: Gory R. Haormeyer LCDR NC USN 

* Date: 23 December 1985 

* Screen Generated By: The Software Bottling Company 

= GeaNew yvork, c1985 

* Purpose: Provides a menu for the nurse to 
7 select a nursing order for a 

. patient whose goal is able to 
* transfer independently or with 
a assistance. 

* Input Files Used: Norder3)D.Scr, Time and Procfile.Prg 
* Output Files Used: Orders and Necoredb.Dbf 

* Calling Routine: Beate o Fag 

* Routine Called: None 

eeiiodification Date: tt mebruaru LSBG 

* 

mr SGEeen Input Program For Norder3D -- 

* 

Do Setup 


Public Xnord3dopt 


Do While .T. 


eae SJeceen Uisplay A:Norder3D.Scr -= 


See Color fo W+/B,W+/B 

Clear 

meer losh+’S.A:Norder3D.Scr/” 

see Color fo W+/B,W+t+/B 

paeraJsdept = | 

Do Headings 

Sea a7 Gel. AnOGdsagopt Fict °*S” Range 1,5 


Read | 

* -- Nursing orders are determined by evaluating the 
———— case statement, then place data into Ncaredb and 
——— Orders.Dbf Files -- 

Do Case 


Case Xnord3jdopt = l 
Morder = "Assist Bed To Chair” 


Do B: Time 
Do Case 
Case CTlimeopt < @S .Or. Timeopt = 41) 
aa Less Emam. <x 3S er Tip 
Passdoata = ”’QS1 1” 


ReBoint. = .O 


vies 


Case (Timeopt > 24% .And. Timeopt <a. 
* =<" 3 Or less thon Gahee- see 
Faossdetare, GS). 7. 

Pepe nie. 

Case (Timecpt = 34 .Or. Timeopt 
eo == "Xo Or Sth 
Possdata = ”"Q@S1 8” 
iejeler igre. Che: 

Coase (Timeopt = 36 .Or. limeopt = 373) 
. eee els 
Fassaoca.* “USi. 3" 

PEpOINtas 

Cose (CTimeopt ~ 38 .Or. limechter oe 
See et OG a lt 
Fassdatas=~ 051 10" 

PEpGint “16 
Endcase 


350) 


Do Replaord 
Do Repnrord 
Return 


Case Xnord3dopt = e 
Morder = "Assist Bed To Wheelchair” 
Do B: Time 


Do Case 

Case €fimeopt < eS .0Or. Tlimessty-en 
fe FesSsSethan.x< Sor 118 
Passdata = "051 1” 
PEpCincees 0 

Cose (Timeopt > 24% .And. Timeopt < 34) 
* == K 3 Or. less thon Gihwtxsoe 
Passdoto =* ’@51 7” 
PEDOInNGa> G 

Case’ Climecpt 234 .Or. Timeepur=sos. 
oo Xv owa@r Valles 
Possdeta @ “OS! 8” 
PEpGinua= 

Case CTimeopt = 36 .Or. Timeocsat =370 
*—— XX 1c Ghatels 
Passdata== "O51 93” 
PEpeing=“—e 

Case CTimeopt = 38 .Or. Timeopt 
* > — 2X Cavan 
Possdata = ”Q51 10” 
PEpC1 Neer 

Endcase 


35) 
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Do Replaord 
Do Repnrord 
Return 


Case Xnord3dopt = 3 
Cr leveoroet ,Ordeth; 
Pete te KKK KK A AXXXXXXXXXKX” 
Read 
Morderc *= Ordoth 
Do Replaord 
Do Repnrord 
Return 


fase xneGasdept == 24 
Morder = "Provide Helping Person” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3dopt = 5S 
Morder = ”Provide Mechanical Aid” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Endcase 
Release Xnord3dopt 


Enddo 


Deo 


ee Hh Ht NORDERSE.PRG ee he he Me ie he ie ee ee a 


* Autner: Gary R. Harmeyer LCDR NC USN 

= DG eer. 23 December 1985 

* Screen Generated By: The Software Bottling Company 

7 OF New York, clS8e 

* Purpose: Provides a menu for the nurse to 

. select a nursing otder for a gas 
* tient whose goal is demonstrates 
- skills to achieve goals. 

* Input Files Used: Norder3geE .Ser, lime, Teeeh aga 

= Proc’ tle.red 

* Output Files Used: Orders and Ncaredb.Dbf 

* Colling pReogea me: bogies ea G 

* Routine Called: None 

* Modification vace: | Pepeuary = o2u5 

- 

= =—- Screen input Peogram Por Nocderdi mas 

Pd 

Do Setup 


Public Xnerdseusc 


Do While .T. 


* -- Screen Display A: Norder3shseneaee 


Set Color fa W+/7sB,wW+7B 

Clear 

eet FPidsis- sun NOGHeLSIe Scr /~ 

Set Color te w+t7s5,uU+78 

Xnoraseone, = 1 

Do Headings 

GC ee, 6&7 Get xXnocd3eopt Pict “9” Rangers 


Read 

* -- Nursing orders are determined by evaluating the 

* -— case statement, then place data into Ncearedb and 
A ig SEderSsnvbt (fi ves = 

Do Case 


Case Xnord3eopt = 1 
Mordegu= “Provide Opport To Prac ss. 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3eopt =e 
Morder = "Ieach Factor-Impair Most es 
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Do B: Teach 

Do Replaord 
Do Repnrord 
Return 


Case Xnord3eopt = 3 
HOgeiecEe= = L[eOecm khotiengte For Skilis” 
Do B: Teach 
Do Replcaord 
Do Repnrord 
Return 


Case Xnord3eopt = ¢t 
SB tS.2e3 Get Ordeth; 
Pret 7! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 
Morder = Ordoth 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3eopt = 5 
Morder = "Teach Required Exercise” 
Do B: Teach 
Do Replaord 
Do Repnrord 
Return 


Case Xnord3eopt = 6 
Morder = "Teach Use Of Adjuncts/Aids” 
Do Replaord 
Do Repnrord 
Return 


Endcase 
Release Xnord3eopt 


Enddo 


Dey 


ee ASSESS _4 : PRG 30 Re Re Re Re ae ae Ae a WE Ee ae ee a aaa 


“Rut wor. Gary R. Hermeyer LER ieee 

* Boece: 23 December 1385 

* Screen Generated By: The Software Bottling Company 

* Of New York, eloes 

* Purpose: Provides a menu for the nurse to 
* select nursing assessment fora 
- patient with a nursing diagnosis 
- of self-care deficit. 

* Input Files Used: Assess_%.Scr and Procfile.Prg 

* Output Files Used: None 

* Collinge. “oucine- N Diag “Fag 

* Routine Called: Relate _Yrreg 

* Hodit teat ron, Yace: 3 February giao 

* 

“w= SCreem Input Program far asses >. aa 

* 

Do Setup 


Public Xassttopt 


Do White <1. 


* -- Screen Display A:Assess_%.Ser -- 


Set Color To W+t/B,W+/B 

Clear 

?? Flasht”’S.A:Assess_'.Scr/” 

Set Color sia wW+/B.w+7eb 

Xasstopt = O1 

Do Headings 

© e2&,66 Get Xasstopt Pict "SS Ranges 
Read 


* -- Allows nurse to document assessment of the 
SoS HOtLert (== 


Do Case 


Case Xassttopt = 1 
Nassess = "Unable To Cloth Self” 
Do B:Relate_4t 
Return 


Case Xassttopt = 2 
Nassess = "Unable To Cut Food” 
Do B:Relate_4 
Return 
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Case Xassttopt = 3 
Nassess = "Unable To Drink” 
Do B:Relate_'t 
Return 


Case Xassttopt = 4 
Nassess = "Unable To Fasten Clothes” 
Do B:Relate_'4t 
Return 


Case Xassttopt = 5S 
Nassess = "Unable To Feed Self” 
Do B:Relate_'t 
Return 


Case Xassttopt = 6 
@ 18,c% Get Assoth; 
Pict ”"!XXXXXXXXXXXXXXXXXXXXXXXXXKX” 
Read 
Nassess = Assothn 
Do B:Relate_%4 
Return 


Case Xassttopt = 7 
Nassess = "Unable To Get To Bathroom” 
Do B:Relate_'t 
Return 


Case Xassttopt = 8 
Nassess = "Unable To Maint Appearance” 
Do B:Relate_4t 
Return 


Case Xassttopt = g 
Nassess =~ "Unable To Select Clothes” 
Do B:Relate_%4 
Return 


Case Xassttopt = 10 
Nassess = "Unable To Sit On Toilet” 
Do B:Relate_'t 
Return 


Case Xassttopt = 11 
Nassess = "Unable To Do Toilet Hygiene” 
Do B:Relate_'t 
Return 


Case Xass'topt = ie 
Nassess = "Unable To Rise Off Toilet” 


Beg 


Do B:Relate_4 
Return 


Case Xassttopt = 13 
Nassess = "Unable To Do Flush Toilet” 
Do B:Relate_'4 
Return 


Cose Xassttopt = 14 
Nossess = "Unoblse To Wosh Salf” 
Do B:Relate_'4t 
Return 


Endcase 
Release Xassttopt 


Enddo 
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eH RELATE 4 PRG ie he Me Me ie Me ie Ae A A Se Ee Ae eee ee ee Re ae 


* Author: Gary R. Harmeyer LCDR NC USN 

ee wate: 23 December 1985 

* Screen Generated By: The Software Bottling Company 

* OF New York, c19S85 

* Purpose: Provides a menu For the nurse to 
* select related factors for a 

* patient with a nursing diagnosis 
* @- self care: deficit. 

* Input Files Used: RemGgreet oe) Gnd FPreckile.Prg 

* Output Files Used: None 

eSEaqiling Routine: Assess_4.Prg 

eeeroutine Called: Geelete2rrg 

menoaciFication Date: Sereanuary 1386 

% 

Pe Scrcenm 1mpuc Trogram For Relate_%t -— 

rs 

Do Setup 


meaolic Xreltopt 


He While .T. 


meee SecCeen Display A:Relate_t.Scr -- 


sete Coler [co W+/B,W+/8B 

Clear 

jm. & lash+’S.A:Relate_¢.Scr/” 

mec color To W+/B,W+/B 

heel 2topt =~, Ol 

Do Headings 

Spec, oo Get ACelttept Pict "SS” Range 1,10 
Read 


* -- Previous assessment is related to some cause -- 
Do Case 


Case xXrelttopt = 1 
Neelatei™ “Aetivitu intolerance” 
eee: God |. 4 
Return 


Case Xrelttopt =e 
Nrelate = "Depression” 
ie Beoeca lt 
Return 


Base ACeltopt = 3 
Nrelate = "Developmental Phase” 


oot 


Bley jeeiGlejelil Ss: 
Return 


Case Xreltope™= 4 
Nrelate = "Musculoskeletal Function” 
Deo 8: Goat. 
Return 


Case Xrelttopt = §S 
@ 17 14° Geet Relotn-. 
Pict °! XXXXXXXXXXXXXXXKRAAA Ke 
Read 
Nrelate = Reloth 
Doe. be boqd. 4 
Recurn 


GaSe xAreligpeen =a 
Nrelate = "Neuromuscular Impairment” 
Day 38: Goal. 4 
Return 


Case Xrelttopt = 7 
Nrelate = "Pain / Discomfort” 
Dee. Goal 4 
Return 


Case Xrelttopt = 86 
Nrelate = "Perceptual Impairment” 
Deis: Gea. bes 
Return 


Case Xrelttoopt = 9 
Nrelote = "Sensory I[mpoirment” 
Hens: Goals 
Return 


GOSeuxreltopce= 410 
Nrelate = "Severe Anxiety” 
Da -B: Goer 4 
Return 


Endcase 
Release Xrelttopt 


Enddo 


Bee 


He He MK GOAL_4%.PRG Sie ee Ae AG HE AE RG AG A AE HE RE REE HE RE HE EE HE HE EE HE EE EE A EE HE EE 


* Author: Gary R. Harmeyer LCDR NC USN 

* Date: 23 December 1985 

* Screen Generated By: The Software Bottling Company 

* Of New York, ciS85 

* Purpose: Provides a menu for the nurse to 
- select a patient goal fora 

a patient with a nursing diagnosis 
= ef self-ceore: deficit. 

* Input Files Used: BaG SEG Onda Proch ite. era 

* Output Files Used: None 

Beeciling Routine: Relate_4t.Prg 

eeeroutine Called: NorderttA, NordertB, Nordert4l, 

a Mepdect) are Norderc'tteE.Prg 
eevodification Date: eo JomMveme Paso 

& 

ffeemoereen Input Program For Goal_t -- 

* 

Do Setup 


mulotic Xgoatopt , Xgoattcur 
Paeatcur = Spacel(l13 


Bo, While .f. 


[ene > oecreen Display A:Gool_t.Scr -- 


Secu Color fo Wt/B,W+t/B 

Clear 

meer lash+ S.A:Goal_t.Scer/” 

Soe eelor 20 W+/B.W+/B 

meeetopt = i 

Do Headings 

Peete ov cet xgodtopt Pict "S” Range 1,5 


Read 

* -- Allows nurse to select specific goal attainable 
a — by this patient and current level of care the 
~ the patient requires -- 

Do Case 


Case Xgoatopt = 1 
Ngooal = "’Func © Level O, Full Self Care” 
Do Current 
Do Replaord 
Do B:NordertA 
Return 


ao0 


Case Xgoatopt = 
Ngoc ln aees Ute 
po Cugceme 
Do Replaord 
Do B:Norder4sB 
Return 


fw 


Level 


Case Xgoattopt = 3 
Ngoal = "Func @ Level 
Do Currerme 
Do Replaord 
Do 8: Nordertc 
Return 


Case ~ceetopt ss 
Ngoal = "Func @ Level 
Do Current 
Do Replaord 
Do B:NordertD 
Return 


Case Xgeatept = & 
Ngoal = "Func @ Level 
Do Current 
Do Replaord 
Do B-NordectE 
Return 


Endcase 
Release Xgoattopt, Xgoatcur 


Enodae 


1, Use Of Equip/Device” 


2, Needs Assist/Supervis” 


3 Needs Assist/Use Device” 


4 Dependent/No Particigtme 
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**** NORDERYA . PRG #2 0 te ste 200 te ate te ite te te te te te te te Re te te te te te eee te te ee ae ne ee 


Author: 
Date: 
Screen Generated Buy: 


Purpose: 


Input Files Used: 
Output Files Used: 
Belting Routine: 
Routine Called: 
hegdification Date: 


** * *€ ee Kee eK ee RK KH 


* 


Do Setup 
Buolic Anordtaopt 


Ma While .I. 


Gory R. Harmeyer LCDR NC USN 

C3 December 1985 

The Software Bottling Company 
OF New York, ci38s 

Provides a menu for the nurse to 
select a nursing order for a 
patient whose goal is Functions 
aot level O: Full self care. 

NepeOcGao. ocr. Lime ond. Prockiite.Prg 

Orders and Ncoaoredb.Dbvbf 

Goal22.Prg 

None 

Sectepcuacy 1986 


ee ocreen Input Program For NordertA -- 


* -- Screen Display A:NorderttA.Scr -- 


pet Color to Wt/B,W+/B 


Clear 


?? Flash+”’S.A:NordertaA.Scr/” 
pec Color To W+/B,W+/B 


pmocadtaopt =. 1 
Do Headings 


See or soe Anordtqope Pict ”S” Range 1,3 


Read 

= —- Nursing orders are determined by evaluating the 
a Stocmocuccicm mene me place, Gara tmto Nearedb and 
a Headers Ub sfiles =- 

Do Case 


Case Xnordtaopt = 1 


Morder = "Supprt Increse Indep In ADL” 


Do Replaord 
Do Repnrord 
Return 


Case Xnordtoopt = 


a 


Morder = "Peds Recreation/Observation” 
Passdata = "Qc6 1” 


Pep@igit = 8 


bo 


Do Replaord 
Do Repnrord 
Return 


CaSe Anerdrzaeet = 4 
@ 17 (fe Gee Grdatkhn, 
Pict -?'! XXXXXXXXXXXXXXAXAAKAK A ee 
Read 
isl giel=je> 9 Biefalaieyp 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


Endcase 
Release Xnordttaopt 


Enddo 
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He MH ee Me NORDERYB : PRG ee ee ee ee ee ee 


Author: 
Date: 
Screen Generated By: 


Purpose: 


Input Files Used: 
Output Files Used: 
Bolling Routine: 
Routine Called: 
moeaification Date: 


** * & © & € FF Fe KE Be K * 


* 


Do Setup 
Raolic Aneratbopt 


Eo While .T. 


Gary R. Harmeyer LCDR NC USN 

C3 December 1985 

The Software Bottling Company 
HE New york, clSes 

Provides a menu for the nurse to 
select a nursing order for a 
patient whose goal is functions 
at level 1: needs equipment or 
device. 

NEGde=to.cCE, lime and Procfile.Prg 

Orders and Ncaredb.Dbf 

SoGtea<-rg 

None 

Sereprucru 1366 


eae SeGeen Input Program For Norder'tsB -- 


fer oerecen Display A:NordertB.Scr -- 


Set Color to W+/B,Wt+/B 


Clear 


fer iashnt S,.A:NordectB.Scr/” 
Sec Color [To wW+/B,wWt+/B 


raonadt bop: =~ 1 
Do Headings 


Eee 5/7 set Anerdtboest Pict “S” Range 1,8 


Read 

* -- Nursing orders are determined by evaluating the 

“ —— case statement, then place data into Ncearedb and 
——— Orders.Dbf files -- 

Do Case 


Case Xnordtbopt = 


lgaterne =— Provide Eaqtiip For Bathing” 


Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtbopt = e 
Morder = "Provide Equip For Dressing” 


OW 


Do B:Time 
Do Reploaord 
Do Repnrord 
Return 


Case Xnordtbopt = 3 
Morder = "*Provide Equip For Feeding” 
Do B: Time 
Do Reploord 
Do Repnrord 
Return 


Case  Xmoralbepe. = 4 
@ 18-11) “Get. Greer - 
Pict ’! XXXXXXKXXXXXXXXXXKKXKXXKK Ae 
Read 
Morder .* Ordoth 
Do B: Time 
Do Reploord 
Do Repnrord 
Return 


Case Xnordtbopt = 5 
Morder = "Provide Equip For Toileting” 
Do B: Time 
Dao Replaord 
Do Repnrord 
Return 


Case Anogdstbonpt = & 
Morder = "Peds Recreation/Observation” 
Passdoate,™ Geo i” 
Ptpoincs 2c 
Do Keploaoerd 
Do Repnrord 
Return 


Case xXneratbapt.— 7 
Morder ».*. "spoon Feea Patisnt. 
Passag tow" Vee 1” 
PEpOi Rey <8 
Do Reploord 
Do Repnrord 
Return 


Case Xnordtbopt = 6 
Nerder. = 2 >p00n feed Chita 
Possdato.™* “Gesve. 
PEpOInt = ..6 
Do Replaord 
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Do Repnrord 
Return 


Endcase 
Release Xnord'ttbopt 


Enddo 


bo, 


HM NORDERYC : PRG Se A AE SE Re ME RE RE ERE RE AE HEE IE RE Ee Ee aR RE aE a RE ES RE REE Ee ee 


* Aue nein Gary R. Harmeyer LCDR NC USN 

* Date: e3 December 13985 

* Screen Generated By: The Softwore Bottling Company 

= OF New York etges 

* Purpose: Provides a menu for the nurse to 
> select a nursing order fora 

dl patient whose goal is functions 
- at level e@: needs assistance, 
a Supervision or oather. 

* Input Files Used: NordertC.Scr, Time, Emosup and 

~ PEOGhi le eae 

* Output Files Used: Orders and Ncaredb.Dbf 

* Calling Routine: Geel 2t eee 

* ROUGING Coa slen. None 

* edit teSetien Boece. 3 February la2eb 

* 

” —— SCGECnuinputc Paegram For Norderic 

* 

Do Setup 


PUbLIC “Xneeatcope 


Do While .T. 


* -— Sereen Uisplay a: Nordecitl. Ser ano 


Set CGoloe fo W+/B. wr7e 

Clear 

er Flash Sm Neroertc. Scr?” 

Set Color, lav wt/7B-W+/sB 

ARGGa2eagpe = O01 

Do Headings 

@ ee, 66 Get xXnordtcopt Pict "SS” Range ees 
Read 


* -- Nursing orders are determined by evaluating the 

meine case statement, then place data into Ncaredb and 
Se Orders.Dbf files -- 

Do Case 


Case Xnord'ttcopt = 1 
Morder = "Assist To Dress” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 
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Easeoe,noratcopt .“.c 
Morder = "Assist To/From Bathroom” 
Do B: Time 
Do Reploord 
Bo Repnrord 
Return 


fase Aneaeicopt “= 3 
Morder = "Assist With Partial Bath” 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


ease KXmoraicoutk = 4 
Morder = "Assist To Comb/Brush Hair” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


SaserAnOGatcoOnpce = 5 
Merder = "Dress Patient” 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtcopt = 6 
G@ lente Get Ordath: 
Pict "°!XXXXXXXXXXXXXXXXXXXXXXXXXXK” 
Read 
heGder = OLdetn 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


BOSEsAMneoratecOpt = 7 
Morder = "Feed Patient” 
PFassdata = "’Ocs 1” 
Beoeime, = 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtcopt = 86 
(eeGen Gl VeoeenNegt iene. Suppert ” 
Do B:Emosup 
Do Replaord 
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Do Repnrord 
Return 


Case Xnordteopr,s22 
Morder = “Give Coempletevseurca 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtcopt — 10 
Morder = "Keep Commode @ Bedside” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtcoot = 71 1 
Morder = "Keep Urinal/Bedpan Near” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtcopt = ie 
Morder = ”*Peds Recreation/Observation” 
Passdata = "Qc6 1” 
PEpeinews.o 
Do Repleoard 
Do Repnrord 
Return 


Ease Xneratcept.= 14 
Morden SS “ser (Up= foo ray 
Doo s- line 
Do Replaord 
Do Repnrord 
Return 


Case ANOEGSCOpEs== 15 
Morder = "Shave Patient” 
DowB fume 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtcopt 715 


Morder = “Sacialize Dusging Mears. 
Do Replaord 
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Do Repnrord 
Return 


Case Xnordtcopt = 16 
Meogder = spoon Feed Ghild”. 
BeSSeauas]— Ves e”’ 
Pedei nee lO 
Do Replaord 
Do Repnrord 
Return 


Endcase 
Release Xnordtcopt 


Enddo 
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Wt He ae NORDERYD , PRG eee ee ee eee SS SPP PTE PST TTT PPT TP PPT TPT PS SS 


* *x* &* Fk ek Re eK & Ee ER RHR HE OR FR 


+ 


Author: Gary R. Harmeyer LCDR NC USN 

Date: e3 December 1985 

Screen Generated By: The Software Bottling Company 
OF New York eles 

Purpose: Provides a menu for the nurse to 
select a nursing order fora 
patient whose goal iS lune crens 
at level 3: needs assistance and 
USBS Ssquipment. 

Input Files Used: NordertC.Scr, Time, Emestp ane 
POOCE Lilen aac 

Output Files Used: Orders and Ncoaredb.Dbf 

Calling sReoueune: See] 2%.i-ne 

Routine Called: None 

Neate reetien- cace: 2 Pebrueny 1936 


== Screen [input Program Fer Nercens ene 


Do Setup 
PUBLIC xnosetaepe 


De: wWhnise 1. 


* == Screen Brvsplay A: Nerder to). sen. 


Set -Eeler fo WB w+ sc 

Clear 

ef? Flash SeauNordert). Ser?” 

Set e26r oOo, Wt/ 5 .Ww+7 eB 

XNOEaGtoonpc.— "Ol 

Do Headings 

© e2,65 Get Anordtdcept Pict “SS” Range wero 
Read 


* -- Nursing orders are determined by evaluating the 
et case statement, then place data into Ncaredb and 
ea OrGecs.0aF bt lessee 

Do Case 


Coase xnercstaepe. = 1 
Morder = "Assist To Dress” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


344 


Case Xnordtdopt = e 
Morder = "Assist To/From Bathroom” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordttdopt = 3 
Morder = "Assist With Partial Bath” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtdopt = 4 
Morder = "Assist To Comb/Brush Hair” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtdopt = 5 
Morder = "Dress Patient” 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtdopt = 6 
@ 18,1e Get Ordoth; 
Pict "°!XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 
Morder = Ordoth 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtdopt = 7 
Morder = "Feed Patient” 
Passdata = "Qes 1” 
healing = © 
Do Replaord 
Do Repnrord 
Return 


Case Xnordttdopt = 8 
Hosen =) Give Enotvenal Support” 
Do B:Emosup 
Do Replaord 


a5 


Ho Repneore 
Return 


Case Xnordtdopt = 9 
Morder = "Give Complete Bath” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xneraidesne 2.0 
Morder = "Keep Commode @ Bedside” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtdopt = 11 
Morder = "Keep Urinal/Bedpan Near” 
Do B:Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnoradidept = ic 
Morder = "Provide Necessary Equipment” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnerdtidoept =.13 
Morder .*,. "Provide For Hugiene” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case XAner@dideapete — 14 
Morderw) set Up Food frau? 
Do B: Time 
Dov Reptleacera 
Do Repnrord 
Return 


Ml 


Case Xnordttdopt i 
Merder = "Spoon Feed Chaia 
Pessaata.= Geere™ 
Pepol mea ue 
Do Replaord 
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Do Repnrord 
Return 


Case Xnordttdcpt = 16 


Morder = "Peds Recreation/Observation” 
Passdato = "Qce6 1” 

PEepoint™=*. 8 

Do Replaord 

Do Repnrord 

Return 


Endcase 
Release Xnordtdopt 


Enddoa 


ae 


Mt te NORDERYE.PRG SMe he Me We he te He Ae ie ae AE he He AE Ee Re ee ate ate Ee Ee le EE ae ee ate ate tt 


* * *£ * € € *€ € he Ee eK HE HR OK 


ie 


Author: 
Date: 
Screen Generated Bu: 


Purpose: 


Input Files Used: 


Output Files Used: 
Calling Reuwtine: 
Routine Called: 
Meodtvetcotion Uate: 


Gary R. Harmeyer LCDR NC USN 

C3 December 1985 

The Softwore Bottling Company 
OF New York, ci385 

Provides a menu For the nurse to 
select a nursing order For a 
patient whose goal 1s Functions 
at level 4%: dependent and does 
not porticipats in vweeece 

NordertlE .Scr, Time, Emoestipeane 
Proct LJevired 

Orders and Necaredb.DbF 

Goats ste, 

None 

3 February 1986 


=——- Screen. input Program For Nender ses oe 


Do Setup 
PUBLTE Ano Geaeeak 


Do While .I. 


== SCrCen oe Splou ph Nerden .]. 2° lla 


SEt Coles fo, v+/ Sb wt7e 


Clear 


?e? Flash S.A: Norderte.Scer/” 
Sec Solorelogwe, 3. wt7B 


Xnordteopt™ =.O01 
Do Headings 


@ 22,66 Get XnordYeopt Pict ’SS” Range {1s 


Read 

* -- Nursing orders are determined by evaluating the 
a case statement, then place data into Nearedigaw: 
ceo. ERGErS 7 URE SE ikes.—— 

Do Case 


Case Xnordteopt = 


Morder = "Assist To/From Bathroom” 


Do B: Time 
Do Replaord 
Do Repnrord 
Return 
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Case Xnerdteopt = e 
Morder = "Assist To/From Commode” 
Do B: Time 
Do Reploord 
Do Repnrord 
Return 


Case Xnordteopt = 3 
Morder = "Assist To Comb/Brush Hoir” 
Do B: Time 
Do Reploord 
Do Repnrord 
Return 


Case Xnordteopt = ¢ 
Morder = ”*Dress Patient” 
Do Reploord 
Do Repnrord 
Return 


Case Xnordteopt = 5 
Morder = "Feed Patient” 
FPosseaca #8 Gea 1” 
PEpelate oe 
Do Replaord 
Do Repnrord 
Return 


Case Xnordteopt = 6 
Celera Get Ordoth:; 
Bree) 7! XXXXXXXXXXXXXXXXXXXXKXXXXXX” 
Read 
Morder = Ordoth 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtteopt = 7 
Morder = "Give Complete Bath” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordtteopt = 8 
Morder = "Give Emotional Support” 
Do B:Emosup 
Do Replaord 


7 


Do Repnrord 
Return 


Case Xnordteopt = 9 
Morder = "Provide For Oral Hygiene” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordteopt = 10 
Morder = "Provide For Personal Hygene” 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case Xnordteopt = ii 
Nerder ." Provide Urinal /Bedpan™: 
Do B: Time 
Do Replaord 
Do Repnrord 
Return 


Case XnordYteopt = ile 
Morder = "Spoon Feed Child” 
Fassoqatas— = Geo cc. 
PEpoint a= 10 
Do Repiaord 
Do Repnrord 
Return 


Case XnordtYeopt = 13 
ferder = "Other Activity C215 <s0miee 
Possdata =) WSs 2" 
PEpet hee =e 
Do Replaord 
Do Repnrord 
Return 


Cease Aneord2zeept = it 
Morder -@ “Other Activitu C>30nitnae 
Pesscutar= “Woo 37 
Pepe inte.’ 4 
Do Replaord 
Do Repnrord 
Return 


Case Xnerditeopts@, is 
Morder = "Special Procedure (>) <eina 
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Possdoata = "QS6 %” 
Pepoint = 8 

Do Reploord 

Do Repnrord 

eet mia 


Cose Xnordteopt = 16 
Morder = ”*Xtra Linen Chge/Portal Bath” 


Do B:Time 
Do Case 
POsSeme imeape Sot .Sfeeeimeopt = 213 
= -—— Less seman x86 pec day 
Pessdatca, Ss) Get 1” 
I crofap ign = (3; 
Base elImeope = 21  ,Or. LTimeopt = 35) 


[= sem pee Shitt Of <x 6 per day 
Fossde@ea =. Oetec” 
eee Ome ot 

GCose ttimeopt 736 .Or. Timeopt = 37) 
iam at oOor Silt t Or x le per’ day 
Bassdoatar=s “Get 3” 

Je Clash gps we S. 

Scseeelimneape = 39> .0r. Timeopt = 39) 
eo epee Soift or x e+ per day 
pessourun=* Get t” 

PEDO mtu. © 
Endcase 


Do Reploord 
Do Repnrord 
Return 


Endcase 
Release Xnordtteopt 


Enddo 


Doe 


% Hh MH INACTIVE , PRG Hee Me Me Me ee Ee ee ee ee eae a eo 


* Aw Caer Gary R. Harmeyer LEDER NG Ga 

= ote: SB Jonuaey elses 

* Screen Generated By: The Software Betelingw@eetacr. 

= Of New York, c1985 

* Purpose: Displays the patient’s nursing cere 
= plan and allows it to be moat ies 
- by inactivating pOrvcliens tea ae 

* Input Files Used: Inactive .Ser and FPrecs fvereqa 

* Output Files Used: NEaredb.8bE 

* Colling: Reverne:. Nursel.Prg 

* Routine Gaelic. None 

“ edification vere: + Februaru 2366 

* 

* -= SCreen Input Pregrom for 1nece Vena 

= 

Do Setup 


Public Xinaopt, Xidate, Xitime, Xinurse, Xnpack 
Public Xiemo, Xifreq, Xmptfmpssn, Xidiag, Xmord 
Public Xigoal,Xiassess,xXirelate, Xiord 
ANDGGK A= 7.4 


* --— ftdentify correct patient and iscl@teyefoenesc use 
- EQCe lone 


Use B:Ncaredb 
Store ”  * =+.PEeempssn + ~* 1Oexkmptempssn 
Locate For Nf€mpssn = &Xmptfmpssn 


Do While .T. 
* -- Store data From DUbf File into variable Remco 


Xidate = Ndate 
Xitime = Ntime 
Xinurse = Nurse 
Xiemo = Emotea 
Xifreq ™ Nfreq 
AiGgitages NeloaGg 
Xigooul = bea) 
Xiassess = Assess 
Xirelate = Relate 
Xiord = Nore 


* -- Sereen Hisplay 8: lnadctive, sepa 
Set Soler, fe Web, w+ 


Clear 
?? Flash S26) mOce lve, ocr.e 


J92 


Sec Eger To W+/B,Wt+/B 
Do Headings 

Xinaopt = 1 

Gls a sol -x1Teime 

ees oo AL dace 

ils, te) say xXAidiag 

@ 13,46 Say Xiassess 

Eli. eogl Airelate 

ee tere Sau  X1goal 

ee Soe seu) XLOra 

@ 1S, 28)Say xXifreq 

@ 1iS,41 Say Xiemo 

@ 15,61 Say Xinurse 

Beee o7 sole xamaope Pict "S” Range O,4 
Read 


* -- Evaluate action based on the option selected --~ 
Do Case 


Case Xinaopt = O 
Pea Ol gm=-OF LF 
teaeAneoek 2 .1. 

Pack 
Eng it 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case Xinaopt = 1 
= —- Next Plan 
skip 
Do While CNfmpssn # &Xmptfmpssn) 
Leo EOr ce) 
Nmenu =”1” 
Gaeta s Sou NO Ageitional Care Plans On This ” 
Gacan soe Doles OClehG. -- EEeSsS Any Key [fo ” 
Ged, co oo Continue’ 
Set Console OFF 
Wait 
Set Console On 
bE AnDOGcK =, .1 .; 
Pack 
Be ioe 
Return 
Else 
Ski 
Baar 
Enddo 


oey 


LE EOF? Gs 
Nmenu *"1” 
© e4Y,5 Say "No Additional Care Plans tne nee 
©C e4,38 Soy "Patient -- Press Any Key To ” 
GC e€% 66 Sous Geneinvec« 
Set Console Off 
Wait 
Set Console On 
Lt -Anoeeck =e. &. 


Peck 

Pnaae 

Return 
Else 

Loop 
Ena & 

Case Alinaepe. = € 

* => lmeCeivace Pian 
KN PGC Kar ent § 
Stores". + Xieord + "> foe need 
* -- Remove corresponding order from Orders.Dbf 


Use B:OQrders 

Locate For (CFmpssn=&Xmptfmpssn .And. Order=&Xmord) 
Delete 

Pack 


* -- Remove nursing care plan data from Neareads tae 


Use B:Ncaredb 
Delete 
Skip 
Do While CNfmpssn # &Xmptfmpssn3) 
le BOR 
Nmenu =”1” 
© e4t+,5 Say *No Additional Care Plans On fhis ” 
© 24,38 Soy "Patient —- Press Reue Keune (om 
Giect,66 Say “Continue. 
Set Console Off 
Wait 
Set Console Qn 
Pack 
Return 
Else 
Skip 
Ena@ic 
Eneas 
lf. EGE &) 
Nmenu =”"1” 


oa 


Chai os Sau 
Beei7ce Sau 
ret, 66 sau 
Set Console 
Wait 
Set Console 
Pack 
Return 

Else 
Loop 

Ene 2 & 


Case Xinaopt = 
* s-2Nurse Ma 
Le Uxaeack = 

Pack 
Ena 
Nmenu =71” 
Return 


Case Xinaopt = 
* —-- flaster 
le <neack = 

BaCK 
Bmore 
Nmenu =” 
Return 


Endcase 
Release Xinaopt, xX 


“NempcGeational Eare Plans On This ” 
"Patient -- Press Any Key fa ” 
*COnti nue 
GEE 


On 


2 
ster 


ae 


LY 


ile 


idate, Xitime, Xinurse, Xnpack 


Release Xiemo, Xifreq,xXmptfmpssn, Xidiag, Xmord 


Release Xigoal,Xi 


Enddo 


assess, Xirelate, Xiord 


Dae 


te He ae ADDELETE - PRG ie He ee ie Me Me he ie ie ie he ae ie ee ae he he he ie he ate ate he ee he Oe Re ae ae ae ate ate te ae oe 


* Author: Gary R. Harmeyer LCDR NC USN 

* Date: 9 January 2286 

* Screen Generated By: The Software Bottling Company 

ag , OF New York, elses 

* Purpose: Allows the data processing person- 
- nel to choose to add or delete a 
= Se me 

* Input Files Used: Addelete.Scr and Procfile.Prg 

* GUtCput Files Used: None 

* Colling Reuwtine: Master .Prg 

*“Routine, Galle: Useinfo or Delete.Prg 

* MOdiFication Bate: e5 Jantiarg visee 

at 

* -- Screen Input Program For Addelete -- 

1% 

Do Setup 


Public Xaddelopt 


Do White... 


* —- Screem Display 8:Addelete ses] 


Set Colon jo Wt7b,w+7B 

Clear 

?? Flasht+”’S.B:Addelete.Scr/” 

Set Color elic. Wt7s. W+/s 

Xaddelopt = O 

@ ee ,67 Get xaddelept Pict "S” Range oO. 


Read 
* -- Evaluate action based on the option selecteqe 
ie eese 


Case Xaddelopt = O 
46 =>S7one ore 
Close Databases 
Close Procedure 
Release All 
Return To Master 


Case xXaddelopt = 1 
* —-- Add A User 
Do B:Useinfo 
Loop 


Case Xadmitopt = e 
* -- Delete A User 


356 


Do B: Delete 
Eaop 


Endcase 
Release Xaddelopt 


Enddo 


2 


ee USEINFO : PRG SRG 3 A Re RE REE RE RE AE ARE EE Ea ae ee RE EEE eee oe oe oe 


* Author: Gary R. Harmeyer LCDR NC USN 
*THece. 1e December 1985 

* Screen Generated By: The Software Bottling Company 
* OF New York, clSes 

* Purpose: Allow data processing personnel to 
a” aqdd new user. 

* Input Files Used: Useinfo.Scr and Prech wie gs 
* OQutput Files Used: Useinfo.DbF 

* Celblking Rovieane- Addelete.Prg 

* Routine Called: None 

* MoeGat Leatione late: 4 Pebruary. 13e6 

né 

* -=— Sereen Input Program For Useingen—— 

i 

Do Setup 


PUBLIC XUF initial xuminiciral. .aene 
Public Xrequestor, Xcodeword, Xaccess 
AUP LOI Clo we ee et opOeCel Oo 
AUMINVelral wmeSogcet 32 

XuUlnoame = Spacelic3 

Xrequestor = Spaocel3j 

Xcodeword = SpacelS) 

Xaccess = 3 


He; Wing te sl 
*<> > Screen Dasploy 8: UseinGo.ocee-— 


SetvGoleonrs eo Wt7B we 

Clear 

ce Plast SS. B-USei nto. Sem... 

Set Celor) fteugw+7 Bes B 

Soe Set Axor tite bet) © cee lane 

@ bis SSa ben. 7Umi ni btialbericte. Wl 
©-13.43S Gebwxuiname Pict 7! XxKn eee 
16 44 GEterxsrequestor Pict 4 

© 18.43 Gets xcocdevioea Pict) | Wie 

3 
R 


eO 43 Get Aaccess Pict °S” Rangeree. 
ead 


Use B:Useinfo 

Do wri ve = Not 
Skip 

Enddo 

Append Blank 


2 


* -- Put data From variable names Inte Ube eae 
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Replace 
Replace 
Replace 
Replace 
Replace 
Replace 


Return 
Release 
Release 


Enddo 


Qptpieie Wileme AUP LMLe Lol 
Uminzeral With Xumimicial 
Ulname With Xulname 
Requestor With Xrequestor 
Codeword With Xcodeword 
Access With Xaccess 


AOE inMieclial .emimi tian lname 
Xrequestor, Xcodeword, xaccess 


Io9 


eh DELETE ; PRG We Me Me ME MR ME Me He Me He ee AE AE AE AE He RE RE Rk AE EE ee EEE ate ete he ee oe oe 


“Au enor. Gary R. Harmeyer LCDR NC USN 
* fate: 9 Jonueso 1Sse5 

*" Screen Generated By: The Software Bottling Company 
= Of New York, elses 

* Purpose: Delete a user. 

* Input Files Used: Delete .Ser and Proctite 27sec 
* Output Files Used: Useinfo.Dbf 

* ,Celling -koucgi ae. Addelete.Prg 

* Routine Calls: None 

* Modification Uaeer + Februgee sie 

* 

“ =— Screen Input Poogram bor Sseterewas 

r 

Do Setup 


Public Adelopt, %dlulname, XGiveé init. xan eae 
Public Xdlreq, Xdlacc, Xusepack 
Xusepack = .F. 


Be winivie sy i. 
* -- Store data from Dbf File into voricble nemes se 


Use B:Useinfo 
Xdlulname = Ulname 
Gleb Utes hi ees ae te te Gt 
Xe luming ca peminici7a) 
Xdlreq = Requestor 
Xdlacc = Access 


toro Seseen Disp ate. Vele be, oe tam 


SCLweelor lor w+7 ews 

Clear 

ee Flos 5.5: UeCleEe-Se57~ 

Set Coveoreg owt / Ss. wre 

Xdelopt = 1 

(13) seca AGL Laame 

Gots) 1 SeSouy sour ams & 

(els see Sal xe hum na & 

@ 13), 38550 Xdlreqg 

eos ben Scar. Loee 

@ ee,6/7 Get Xdelopt Pict "S” Ranger ea 
R 


ead 
* -- Evaluate action based on the option selected -= 
Do Case 


360 


Case Xdischopt = O 


wee Sl gitar 

If Xusepack = .T. 
Pack 

Emadire 

Close Databases 

Close Procedure 

Release All 

Return To Master 


Case Xdischopt = 1 


* —-—- Next User 
Skip 
the eOrs C2 
Geet seo INeweeditiongal Wsers -—-— Press ” 
GEwert tt sau sAmu Keu fe Continue” 
Set Console OFF 
Woit 
Set Console On 
PE AuUsSepack = .1. 
Pack 
Ewe it 
Return 
Else 
Loop 
Ele es 


Case Xdischopt =e 


* —-- Delete User 
Xusepack = .T. 
Delete 
skip 
Ee VeOr tJ 
@ e2ct,15 Say "No Additional Users -- Press ” 
f© 24,44 Soy "Any Key To Continue” 
set Console Off 
Woit 
Set Console On 
Fock 
Return 
Else 
Loop 
Emaae 


Case Xdischopt = 3 


* -—-- Return To Add/Delete Screen 
fe SAUSeEpGcK =)... 

Pack 
Endif 
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Close Databases 
Return 


Endcase 
Release Xdelopt, Xdlulname, Xdlufinit, Xdluminit 
Release Xdlreq, Xdlacc, Xusepack 


Enadea 


362 


APPENDIX fF 


PROGRAM SCREENS 


A PROTOTYPE oo o© 
#e@ #2e oe 
PROJECT * ° 
#2 @ BD es 
FOR 2 a BY 
aan #2e@a 
THE 3 s GARY R. HARMEYER 
eons oes LCDR NC USN 
NAVY NURSE CORPS ts . | 
@ x MARCH 1986 
i; . | 
* = NAVAL POSTGRADUATE SCHOOL | 
aaa “eee | 
« = MONTEREY, CALIFORNIA 


RELEASE 2 


PRESS ANY KEY TO BEGIN 





peu re sell 
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*e* Please Sign On By Entering Paesswocd === 





** Possword 





Figure 1a 





** Prototype Master Screen ** Date Time 


e#e Select the Desired Option #*5 


1) Admission’s Department 


2) Doctor’s Master 


3) Nursing Master 


4%) System Administration 


OO) Signsfee 





Current User: 


Select one number (CO-4) ="“"*=> s 





Figure 2 
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Se* SePPeleegi ioe, OYSEMARGE OPTION *** 





13} Admit A Patient 


2) Discharge A Patient 


0} Sign-oFF 





Current User: 


Select one number (0-2) #*==> 8 


Figure 3 


Patient Admission Farm 


Last Name: Registration No: ! 
First Name: Medical Diagnosis: | 
mad Initial: Physician: 
Rate/Rank: Prognosis: 
Eme—-SSN: oS Allergies: 
Birthdate: (oe Nucsing Ward: 
Age: Room Number: 
Sex: Bed: 
Admit Date: 4 of 
Pa auee a5 ei 
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*#e* DISCHARGE A PATIENT ame 


FMP-SSN Patient Name Practitioner 


OJ Sign-ofF 1) Next Potient 2) Discharge Potient 3) Admit/Discharge Scr 





Current User: 


Select one number (€O-3) ee2e=2> a 


Figure 3.2 


*® Nurse’s Station Selection ** Date Time 


*** Select Nursing Unit to Display Patients *** 


—- <= 


1] CE Suegical Ward 


-  — oe 


eC) SE Medical Ward 


O27 signe & 3) Master Screen 





Current User: 


Select one number (0-3) **=*=> 8 





Figure 4 
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pp Sy LL ee eS 


** Potient Selection ** Word e@E Surgical Date Time 


**®*® Select Patient *#*#* 





RM BED PATIENT 
1) 1 A 
aii 8B 
3) 2 A 
4) 2 8 
5) 3 A 
53.37 8 
Cimon orf 7) Master Screen 





Current User: 


Select one number (0-7) *="==> s 


Figure 4.1a 


** Patient Selection ** Word 3E Medical Date Time 
*** Select Patient *** 
RM BED PATIENT 


eo) 
(i 


Pe 


3) 
<4 


2) 
6) 


WW mn 
oD oD wo D 


OJeSign—OFF 7) Master Screen 





Current User: 
Select one number (0-7) *="*==> a 





Figure 4.1b 
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Ward Room Bed Patient Reg # Date Time 


**2 DOCTOR’ S MASTER SCREEN A=== 





1) Order Entry 

2} Admit / Transfer / Discharge Patient 
3] Review Medical Orders 

4] Print Medical Orders 


SJ] Discontinue An Order 


O17 Stgm-Oc & 6) Master Screen 





Current User: 


Select one number CO-6] **2#=> s 


Picure tf, iit 





Ward Room Bed Patient Reg * Date Time 


eee DOCTOR > ORDER MENGY === 





1J Activity 63] Pharmacy 7 
e)- Diet 7] Radiology 
3) IV’s / Blocad 8) Respiratory Therapy 
%*J] Laboratory Tests 3] Vital Signs | 
SJ Menitering 10) Ward Routines 

OO) Sign-Ore 11) Dector’s Master Screen 12] Master Screen 





Current User: 


Select one number COO-12) **="> as 





Palo ee ete 
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Ward Room Bed Patient Reg # Date Time 


eee SELEE. FELIU TY LEVEL *** 





1) Ambulate ad lib 7] Dangle Legs 

2) Ambulate w/ Assistance 8) Keep on Back 

3] Strict Bedrest 32 May Shower 

4%] Bedrest w/ BRP 10) Turn Patient 

S) Bedside Commode 11) Turning Frame 

6) OOB to Strecher w/ Assist 12) Up in Chair w/ Assist 
OJ cotgm—ot le 13) Doctor’s Order Screen 14) Master Screen 





Current User: 


Select one number (CO0O-14%) =*= 


Habanee ste dh, deal | 





Word Room Bed Patient Reg # Date Time 


ee + 


eee SELEGIe INE /EREQUENEY GFTION *** 


1) PRN * Daily @ 207 2200 30) Geshice 

eoeG@ i-e Hr PRN 10) O200 el) 2400 313) O10 

SoeG 2-3 He PRN 11/700 36. wont 

a2) @ 3-4 He PRN ie) ©5600 ee, 15 S40. 

13) @800 ea) Q@ le He lees 12) Se nbs 

=Jon Call it) TOOo es) x 2 S530:x. 5 

6) QD 15.) te00 25) /118 

7 iS 15) 1400 26) AC Soon G ve He 

8) x 1 im 17 J 1600 277) PC S7AaxX Le 

5) Todey @ | 182 1800 Wich) © 8 Ke Saa0 0 si he 
cree 15372000 es) x72 3Sa0x eh 

40] Help 41) Return to Calling Screen 





Current User: 


Select one number (O1-41) *=*=> as 


Pee eH ll 15 
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RN eee een ne ee eee reece 


HELP SEREEN FOR THESLInNE MebuUre 


Hospital policy dictates the exact time for standardized abbreviations. 





=) PRN 31-33) Four times a day frequency 
Q1D -- Og00, 1300, 1700, e10C 

S-21) Single dosages Q 6 Hr -- O600, 1c2e00, 18cm 

GD == 0306 2400 

HS == ce0o 

34-35) Six times a day frequency 

2e-2e4+) Twice a day Frequency Q % Hr -- Oe00, O600, LOGE 

BID —— 03500 "272100 1%*00sue1 800, “ceee 


G@le He —-—  1e0Gre 22C0 
36-37) Twelve times a day frequency 


25-30) Three times a day Frequency Q 2 Hr -- Even hours 
Tie—-= @360., 1400, e100 
AC ==-0760." 1100, 1706 38-39) e% times a day frequency 
PE. == 6500471500. 1566 Q 1 He —— Gn th@ hos 
G8) Ne s== 0600.7 14007 e20e 
GeSnil te ==] C300, 1700,.0c00 41) No frequency will be assigned 





Figure 4.1.1.1c 





Ward Room Bed Potient Reg # Date Time 


eee SclRGt Blk =-< 


1) As Tolerated 103 Na Controlled 

2} Clear Liquids 11) NPO 

3) ~6Piabetic 12) NPO p e400 

*) Fat-controal led 13) NPO w/ ice chips 

5S) Full Liguids 14) Regulor 

6) Infant / Neonatal Bottle x1 15) Renal & Liver Disease 

7) Infant / Neonatal Bottle x6 16) T&A 

83 Infant / Neonatal Bottle xle 17) Tube Feedings Ccont / bags) 
93) Mechanical Soft 183 Tube Feedings Cbholus) 

603 Sign-Ofe 19) Doctor’s Order Screen 20) Master Screen 





Current User: 


Select one number (00-20) ===> 





Piswire 2 eee 
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Word Room Bed Patient Reg # Dote Time 


*** SELECT IU ORDER *** 





*SIUSORDERS * 


1). Stare 0 of 2tSeNacl Over 30 Min 
C3} Alternote IV with Ringer’s Loctote Over 1 Hr 
33 Follow Present IV w/ DS Ringer's Loctote Over e Hr 
4) Imtercupt IU For DS Water Over “% Hr 
SJ) Steressecond IU of Normal Saline Over 6 Hr 

DS Normol Solina Over 8 Hr 
62 Discontinue IV Ovaec tte As 
7] Insert Heporin Lock Whole Blood Over e4% Hr 
83 Use Multilumen Line Pocked Cells 
60) Sign-GF&e 09) Doctor’s Order Screen 103 Master Screen 





Current User: 


Select one number (00-10) ===> «as 





Figure 4.1.1.1e 





Word Room Bed Patient Reg # Dote Time 


222 .Se LEG UNSOLUTION *e* 


* SOLUTION = 


scoct IU cf iio). tf oeNOe Over 30 Min 
Alternote IV with _ C2} Ringer’s Lactote Over 1 Hr 
Follow Present IV c 33 ODS Ringer’s Loctote Over e Hr 
Interrupt IV for 23 05 Woter Over “% Hr 
Start Second IU of SJ Normal Saline Over 6 Hr 

62 DS Normal Saline Over 8 Hr 
Discontinue IV OQver le Hr 
Insert Heparin Lock 7] Whole Blood Over e4% Hr 
Use Multilumen Line 8) Packed Cells 





Current User: 


Select one number (1-8) *"=*=> s 


Peirce tk ol, it 


Daal 


Sees errr er een een ee ee OO Eee 
Ward Room Bed Patient Reg # Dats Time 


eee SELECT INFUSION RAIE =<" 


* INFUSION RATES 


Stact, 10ce tS Noel 1) Over 30 Min 
Alternate IV with Ringer’s Lactate 2} Over 1 Hr 
Follow Present IV w/ DS Ringer’s Lactate 3) Oversecnc 
Interrupt IV for DS Water 43 Over 4% Hr 
Start Second IV of Normal Saline S$] Over S&S He 
DS Normal Saline 65) Over 8 Hr 

Discontinue IV 7) Over ile Her 
Insert Heparin Lock Whole Blood 8) Ger chants 
Use Multilumen Line Packed Cells 





Current User: 


Select one number (1-8) *""")> =s 


Figure 4,.1.1.12 


Ward Room Bed Patient Reg # Date Time 


eee SELECT LABORATGEY SITES *>* 


* ECHEMISiRyY = * ENZYMES ® * STEP 
13 Silicubin 12) Amylase 213 ABO & Rh 
2) BUN LSaIHeeK 22) ABG CFrom A-line) 
3) Caleium 143/68 23) ABG Cstick) 
43 Elocide LSJ 7Ss60r e43 Blood Culeage 
3) €0e 15) SGPT 25) Culture & Sensitivity 
63] Creatinine 26) Cold Agglutins 
73 Glucose * HEMATOLOGY * 277 HEG 
83 Phosphate 1.7 IeEBE 283 Occ Blood in Stools 
933 Potassium 183 Platlets eos "Rak 
10) Sodium | 19) Protime 303 SMA §& 
113 Uric - Acid | 203 Sed Rate 31) UA 
O03 Signages 3@€3 Doctor’s Order Screen 33) Master Screen 





Current User: 


Select one number (00-33) **=> 





Figure 4.1.1.ih 


Oe 


Ward Room Bed Patient Reg # Date Time 


eee SECECT MONITIGRING REGUIREMENIS *### 





1] Apnea Monitar 161 (CP -ChGniter] Set-up 
2) A-line Set-up 
11] Manual ICP Readings 


3] A-line Readings 12] Monitor ICP Readings 

4) Cardiac Monitor 13) Neuro Checks 

S) Cardiac Output 1%) Pressure Monitor 

63 Cicculation Checks 15) PAP/PA Wedge Readings 

7] CUP Readings 16) Swan-Ganz Set-up 
CManually) 17) Temperature Monitor 

8) Fundus Checks 18) Transcutaneous 

39) Intake & Output Monitoring 

O03) Sigm-OFE 139 Docter’s \G@cder Screen 20) Master Screen 





Current User: 


Select one number (00-19) *==> 





Breure 1, i, 1. 15 





Ward Room Bed Patient Reg # Date Time 


- eee 


aoe Pole o RED MED leAtTIGN 7 DOSAGE *** 





*® ANTIHISTANINE *# =* ANT I—INFEETIVE © 

* Benadryl * Ampicillin * Ecythcomycin 
1 2S. mg CG) Sle ecourmg 6G) 17) 250 mg CG) 
ea) 50 mg CIM) 163 S06 mg Cit 18) e200 mg Susp CO) 
3) SG mg CIV) 11) SOO mg CIV) * Keflex 

* Dimetapp * Ancef 13) e30°mg_ 6a) 
t2 4 > meq €O) le)”. 5 bm Ging 20) (les mg susp co) 
5S) Smeg Elxr  €O) ia) 3Ss5m C103 * Sulfacetamine Na 

* Phenergan * Cefadyl el)" ) 10% Sote too) 
BJ) 25 mg (0) 12) esGOrmng Gin, * Tetracycline 
Zo, es my CIM2 1S2° 220 Sm tins ee) e50 mg  CG3 
81) 2S mg@esP) 16352 .0 6m C103 23) S00 mg CIU2 


et) Help 25) Next Screen CMore Meds) 26) Orc’s Ord Screen 27) Master Scree 





Current User: 


Select one number (01-27) *==> 





Figure 4.1.1.1; 


a 


Ward Room Bed Potient Reg # Date Time 


eee SELECT DESIRED NEDICATIGN , (DOSAGES 





*© ANTISEPTIC =" ** CARDIOVASCULAR ** **® CNS DRUGS ** 

* Boric Acid *“"Digexin * Dilantin 
12 S54 sole G8) 7) .ieS mg. tel 15) 100 mg (0) 

8) .eSO mg C2 16) i125 mg Suso tea 

**® AUTONOMIC ** * Inderal * Elovil 

* Atropine S33 10 mg CGD 17] 105mg 62) 
2) 0.4 mg tO) 10) 40 mg COI 16) eS mpgvees 
Ei) 0.4% mg CIN) 11) 1 me €1V) L137 »+SO°mg Gad 

* Uslium * MNinipress * Phenobarbital 
ee S mg CO) 12) 1 me to) 20) 15 mg CO) 
52 S mg cing 13) e€ mg CO) 21) 30 mg CO) 
6) S Gm CIV) 143 S mg tG) ee) GOrmg Cini 

C3] Help e4) Previous Screen 





Current User: 


Select ane number (01-e4) ===> 


Figure. eer 


HELP SCREEN FOR PHARMACY MODULES 


This Help Facility exploins abbreviotions used in porenthesis. If 
the user requires additional information an medicotians or dosages, they 
should consult the PHYSICIAN’S DESK REFERENCE CPDOR) or contact ao Pharmacy 


Officer. The abbreviotians indicate the route of administration: 


CO) Oral Cl) [erigatian 
CIN) Intramuscular COp) Opthalmic 
CIV) Intravenous CSQ) Subcutaneous 


(Sp) Suppository 





Firetree lene 


oe 





Ward Room Bed Patient Reg # Date Time 


“ee SELECT X-RAY **# 





13} Abdomen Flat Plate 163° Cl Sean 

©) Abdomen AP 11] Gallbladder Series 

3} Abdomen 3-way Led” IVP 

4J Angiography 13) Sinus Series 

SJ aArteriography io “Skill 

6] Barium Enema 15) Spine 

72 «Boain, Scam 163 Tomograpy 

8] Chest PA 17} Upper GI Series 

9) Chest Loteral | 18) Ultrasound 

CO] Sign=OfFe 19) Doctor’s Order Screen C0) Master Screen 





Current User: 


Select one number (00-20) **= 


Figure 4.1.1.1m 


ee ee 





Ward Room Bed Patient Reg # Date Time 


Soe SFLEC) RESPIRATORY THERAPY GPIIONS * THEN FLOW RATE FOR ROUIE *** 


** RESPIRATORY THERAPY *#* * F low Rate. = 

1] Chest Pulmonary 8) Wean from AJ i-e liters/min 

Therapy Ventilator 
2} Cough & Deep Breath BJ 3-% liters/min 
3] Incentive = Rouce- > 

Spirometer S) Ceeupr tent E) 5-8 )iters/min 
=) 1 PPS 10) Mask 
Ss. Sucticning 11) Mist Tent DJ) 7-8 liters/min 
6] Tracheostomy Care le) Nasal Prongs 
7] Ventilator 13) Oxyhood Es S=108)i ters/min 

SO) Sign-att 1%) Doctor’s Order Screen 15] Master Screen 





Current User: Select one number (00-15) =*="=> as 


Select one letter (CA-E) "="*="==> +8 





Figure 4,.1.1.1in 


Dio 


a a a RR a 


Ward Raom Bed Patient Reg # Date Time 


eee SELEEGT VITAL, SIGN UPRIGNeeS. 
eR Neer eee eee eee ane nnn 


* ROUT TNE * SPEEA 
a0 f=P-R se S) FHS 
6] Pulse Apical 
ee] Past-op 7) Pulse Femoral 
8] Pulse Pedal 
3) PestsPartum 3] Temp Axillory 
10) Temp Rectol 
4] Post Newborn 11) Tilt Test 
O02 ‘Sign-Gee 12] Dactor’s Order Screen 13] Moster Screen 





Cu.rcent User: 


Select one number (00-13) ©==> 


Figures 4.1 alee 


Ward Roam Bed Patient Reg *# Dote Time 


eee SELECT WARD ROULINE {Ss = 


1] Ace Wrap Lower Ext 12) Lumbar Puncture 20) Simple DOrsg Change 

2] Chest Tube Insertian 13) N-G Insertian 21) Spec Gravity 

33 Circumcision Core 1%) Porencentesis ec) Spin nes 

4] Camplex Orsg Chonge 1S] Phatotherapy e3) Stroidgnte Corn 

SJ] EXG Rhythm Strip 16) Ronge of Motian e+) Sucgicol 

6] Foley Coth Care Exercises CPossive) Shave Prep 

7] Foley Coth Insertion eS) SS Enema 

8) Guioc Staals * Restraints 26) Tap Woter Enema 

3] Isolation Respiratary| 17) e-Paint 27) Tharacentesis 

163 * Reverse 18) %=Point 28) Tube Care Cnat trach) 

i 7 Stei1ct 139) Pasey 23) Urine far S & A 
OO) Sign-GFr 30) Doctar’s Order Screen 31) Master Screen 





Current User: 


Select ane number (C00-31) *-=> 





Pol Saja en) anaes 


376 


SSS sen fe LL 


Ward Room Bed Patient Reg # Date Time 


o2 2 00h) tae ereNor ERee= @SlSCHARGE **©* 





13 Admit 


2} Transfer 


3} Dischorge 


oe gigon-OFe 4) Doctor’s Order Screen S} Moster Screen 





Current User: 


Select one number (0-S} *=#==> 


Figure 4.1.1.2 


Potient Orders For: Mary Miser 


Press -- Ctrl ond S -- Keys to Pause The Scrolling If Necessary 

Poge No. al 

Si712/85 

Dote Time Order Frequency Practitioner 
Cae 7 86 14:13:47 Up in Chair w/ Assist eo Nic Lyon mo 
ieee 7 86 14:14:23 Diabetic Diet N. Lyon MD 
eevee 14:15:41 Stort [UV of .45 Nall Infuse o 8Hr N. Lyon MD 
Oieere/S86 10:17:1% Cloride Daily @ O600 N. Lyon MOD 
Oe e785 10:17:40 Sodium N. Lyon MD 
01/12/86 10:18:00 Amylase N. Lyon MD 
Oiye785 10:18:26 Potassium Doily @ O600 N. Lyon MD 
Give, 85 10:18:56 COe Daily @ O600 N. Lyon MD 
Smete786 10:19:26 CBC Daily @ O600 N. Lyon MO 
Givte/86 10:19:54 Platlets Doily @ O600 N. Lyon MD 
Oa72e2/766 10:20:18 Glucose Daily @ O600 N. Lyon MD 


Figure 4.1.1.3 


Dae 





Ward Room Bed Patient Reg # Date Time 


#22 DISCONTINUE AN GROER 222 


pg RRS nS SSS mg 5p SS SSS SSS ff ES 


Date Scare Order Frequency Practitioner 


QO) Sign-OFF 1) Next Order 2) Discontinus Order 3) Or’s Sern 4%) Master Scrn 





Current User: 


Select one number (CO-4) *=#==> a 





Figure 4,1.1.4 


378 


a es ie es ee 


Ward Room Bed Patient Reg # Date Time 


=> = NURS INGeMAoteER SCREEN *** 





1) Enter/Inoctivate Nursing Care Plan SJ] Review Patient Care Requirements 
€) Review Nursing Care Plan 6) Print Patient Care Requirements 
3) Print Nursing Care Plan 7) Internol Potient Classification 


4) External Patient Classification 


Oa sign-GFE 8) Master Screen 





Current User: 
Select one number CO-8) =="==> a 


eee ik eal 





Ward Room Bed Patient Reg # Date Time 


e°* SELEGT THE DESIRED NURSING CARE PLAN FUNCTION *¢* 


1) Enter a New Core Plan 


2) Inactivate Portions of Care Plans 


Oj. Sign-ore 3] Nurse’s Master Screen 4) Master Screen 





Current User: 
Select one number CO-4) =="==> 1s 


Piiaees 5.1 bleed 


Da 


ener ee eee re ete eee nee nee ee 


Ward Room Bed Patient Reg # Date Time 
es" SELECT NURSING SBIAGNOSIS *=* 
1) Comfort, Alterotion Im: seen 
2) Communication, Impaired: Verbal 


3] Impaired Physical Mobility 


4) Self-Core Oeficit 


0} Sign-OFF 5S) Nurse's Master Screen 6} Naster Screen 





Current User: 
Select one number (CO-6) #=""=> 5s 


Pore: 55 ieee 





Yard Room Bed Patient Reg # Dats Time 


ee SELECT NURSING ASSESSMENTS FOR A sPATIENTeulT, oo 
** NURSING DIAGNOSIS OF COMFORT ALTERATION IN: PAIN #® 





1] Altered Time 7) Guarding Behavior 12) Self-Focusing 
Perception i 
8) Impaired Thought 13] Talkative 

2) Alteration Muscle Tone Process 

14) Verbal Complaint 
3]7 Autonomic Response 327 Norrowing Focus 

15) Vocal Complaints 
4) Distraction Behavior 10): Pocing CMoans, Crying) 
5S] Fociol Mask 11) Patient Report 16) Withdrawal From 

| Sociol Coantacr 

6) Other Assessment: C---------+-+-- +222 eee eee eee J 





Current User: 


Select one number (01-16) ===> 


Fisure Sede 


380 








Ward Room Bed Patient Reg # Date Time 


=¢ SELECT A RELATED FACTOR FOR A PATIENT WITH van 
** NURSING DIAGNOSIS OF COMFORT ALTERATION IN: PAIN #* 





1) Altered Sensation SJ] Surgical Procedure 
2) Disease / Condition 6) Trauma 

3] Emotional State 7) Treatment Regime 
4%) Other: C-------- eee eee ee eee eee eee J 





Current User: 


Select one number (1-7) *"="=> 


Meee oi sciee i tne 


Ward Room Bed Patient Reg # Date Time 


=e SELECT A PATIENT GOAL FOR A PATIENT WITH == 
** NURSING DIAGNOSIS OF COMFORT ALTERATION IN: PAIN #® 





1) Communicates Poin Free 

2) Communicates Experiences Less Pain 

3) Communicates Experience of Pain More Tolerable 
%*) Demos Skills & Knowledge to Achieve Pt Goals 


SJ] Other Gools: C-------------- eee e ee eee ee eee ee eee eee } 





Current User: 


Select one number (1-5) *="*="=> 





area er oy ailee luce | OL 


Boul 


Ward Room Bed Patient Reg # Dote Time 
oe SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS “2% 


®@ COMMUNICATES: PAIN FREE, EXPERIENCES LESS/TOLERABLE PAIN OR OTHER GOAL *®* 


1] Assess Poin Factors 6) Offer PRN Medicotions 

2) Assess & Evaluote Pain 7] Provide Emotional Support 

3] Encour Pt to Use Coping Strotegy 8) Schedule "Quiet Times” 

4] Give Info & Explain Proc & Tests 932 Teoch Alt Coping Strategies 

5] ree Nursing Orders: : | 10] Utilize Diversional Activities 





Current User: 


Select one number (01-10) *==> 


Figure 5.1.1.1e 


Word Room Bed Potient Reg # Dote Time 


e* SELECT A NURSING ORDER FOR A PATIENT WHCSE GOAL IS ** 
*s DEMONSTRATES SKILLS & KNOWLEDGE TO ACHIZYE GOALS ** 
* Teoch Stress Reduction Techniques 

13 Deep Breathing 

2) Progressive Relaxation 
33] Reloxation Response 

4“) Diversionol Activity 


SJ} Other: (€---------------------+----- 7 





Current User: 


Select one number (1-S) *=*= 





Figure’ 5. loi 


Sez 


Ward Room Bed Patient Reg # Date Time 


ee SPL Petey NeGUeENEY GEIION *** 





1) PRN * Daily © 20) 2200 S00 c0 Shite 

2) @ ie Ar PRN 10) OQ200 el) e200 SlI-G1o 

Ss) © e-3 He PRN 1277 O800 32170 Seng 

4) 0 3-4% Hr PRN 12) O600 Sev org a2) 

133) C80 es) Oo le He S20) Ge tae 

Boe Om Cort Idee et) x e S5).x06 

6) OD PS) leo e5) IIo 

ZI 7HS 16] 1800 26) AC 36) Ge Ac 

8) x 1 17181606 27 eFC a7) oxele 

32) Today C 18) 1800 e870 &@ Hr 420) “G@ one 
cose 1S 3eeo0G es = 3 |} @as) x e4 

40) Help *1) Return to Calling Screen 





Current User: 


Select one number (01-41) ===> as 


eae ige mp rete, Ue 





HELP eSsCKEEN FUR THE Tine M@SuLE 


Hospital policy dictates the exact time for standardized abbreviations. 





f=+) PRN 31-33) Four times a day frequency 
Pioe~-~. ©2000. 1300.17 00.)el0c 

S-21) Single dosages GS Hr’ =-—- ©8600, 1200, 1800; 

Boe — Oo 300 2400 

hse <ecO00 

34-35) Six times a day Frequency 

Ce-e+) Twice a day frequency Q %* Hr -- Oe00, O600, 1000, 

BID -="0S00 €& 2100 140602751800, eecdo 


Gites, -—- 1200 & e400 
36-37) Twelve times a day frequency 


eS5-30) Three times a day Frequency DQ 2er -—- Evern@hours 
roe OSOG 1400. 2100 
AG =-7O700, 1100" 1700 38-39) e+ times a day Frequency 
He, == {[oiclela yp eabciole)s h=jele| De lieia —— On. the hour 
G6 he  =-— O600,.1400. e200 
Heonie tt —— OSO0, 1700. Oecd 41) No Frequency will be assigned 





ee tee oi lente. lola 


333 


You have identified teoching os o nursing interventian. Pleoss 
specify the type af teoching thot will be required. Remember ta 


document the teoching yau give ta your potient. 


AJ Group Teoching DJ Structured Teoching 

Cie... diobetic. cordioac. 
B) Preaperative Teaching calostomy core, past 

portum First ¢4 he, newborn 
Ci Return to Previous Screen care, or discharge) 


Select one latter CA-D) ===> 5s 


Pecan 5 anne 


A 





Yau hove identified emotionol suppart os a nursing intervention. 
Emotionol support is expected far eoch potient, but ougmented stoffing 


moy be required for the following: 


* Answer A-C anly if ematianal suppart is in excess of 30 min qetnh * 


AJ Patient/fFamily suppart Cie. anxiety, denial, laneliness, atc.) 


B) Modificotian of lifestyle Cie. new prasthesis, body imoge, 
behavior modificotian, etc.) 


CJ Sensary deprivatian Cis. retorded, deaf, blind, languages barrier, 
bilateral eye potches, canfused, cambativea) 


DJ Return to previous screen 


Select one letter CA-DJ ===> s 





Pa eGo Sod aeeiey 


384 





Word Room Bed Potient Reg # Date Time 


- SELECT NURSING ASSESSMENTS FOR A PATIENT WITH =2 
**® NURSING DIAGNOSIS OF COMMUNICATION, IMPAIRED: VERBAL *® 





1) Anxiety 6) Inobility to Heor lO] Slurcing 

2) Disorientotion 7] Inobility to Speck 11) Stuttering 

33 Feor 8) Incomprehensible Speech| 12) Teorfulness 

4) Frustration 93] Refusal to Speak 13) Thought Disorder 
S) Other Assessment: C--------+ 2 eee ee eee ee ee ee eee J 





Current User: 


Select one number (01-13) "==> 


Ea me rl ret 5 LK 





Ward Room Bed Patient Reg # Date Time 


- SELECT A RELATED FACTOR FOR A PATIENT WITH ata 
** NURSING DIAGNOSIS OF COMMUNICATION, IMPAIRED: VERBAL ** 





1}] Anatomical Impairment 6) Foreign Languoge 
2} Culturol Difference 7) Mental Copacity 

3) Developmental Age 8] Sedation 

4) Disease Process 3) Surgical Procedure 
SJ Other: C------+---+--+---- eee eee 3} 10) Treotment Regime 





Current User: 


Select one number (01-10) === 





Ppoviee: Sot t a Lal 


385 


Ward Room Bed Patient Reg # Date Time 
== SELECT A PATIENT GOAL FOR A PATIENT WITH we 


*®® NURSING DIAGNOSIS OF COMMUNICATION, IMPAIRED: VERBAL *®* 


13 Communicates Needs Thru Words S] Reports Less Anxiety 
22 Comm Needs Thru Mechanical Tools 6} Reports Less Fear 
33 Demo Skills to Achieve Goals 7} Reports Less Stress 


4} Other Goals: C----------+++ 22 eee eee eee ee eee ee eee 





Current User: 


Select one number (1-7) 2*2**=> 


Preure 5. lo im 


Ward Room Bed Patient Reg # Date Time 


=* SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS = 
e* COMMUNICATES NEEDS THROUGH USE OF WORDS OR MECHANIEAER  TOGES Ss 


132 Apprise Others of Communication Prob 6} Provd Translated Phase Chart 
@3} Provide Emotional Support 7] Provide Translator 

33 Provide Paper & Pencil 83 Simple Ques w/ Y/N Ans 

4] Provide Spelling Board 939} Use Sign Language 

S}] Other Nursing Order: 103 Use Establish Comm for ADL 





Current User: 


Select one number (01-10) *==> 





Ficusee 5, dee 


386 





Ward Room Bed Patient Reg # Date Time 


as SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS ** 
See] ORT Se 8ELREASED LEVEL GF eSIRESS, ANXIETY, OR FEAR ** 





13 Encourage Patient to Speak Slowly 6} Provide Translated Phase Chart 
©? Eneeur fo Util Ceping Strategy 72.) Provide lfransilatcr 

33 Explain Proc and Elicit Question 83 Simple Questions w/ Y/N Answers 
43 Provide Spelling Board 33 Use Sign Language 

5 oe Nursing Orders: ; 103 Use Establish Comm for ADL 





Current User: 


Select one number (01-10) ===> 





Pacinicote 5 edee lo, 1 © 





Ward Room Bed Patient Reg # Date Time 


a SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS ** 


_< DEMONSTRATES SKILLS TO ACHIEVE GOALS 7° 
*® Teach Method Preop for Postop Use * Teach Stress Reduction Techniques 
fee Blink ix For No, ex For Yes 6) Deep Breathing 
2} Squeeze Hand For Y/N Response 7) Diversional Activities 
33 Teach Proper Use of Mech Device 83 Progressive Relaxation 
43] Apprise Others of Comm Problem 33 Relaxation Response 
SJ Other Nursing Orders: C-------------+------+-+-------- J 





Current User: 


Select one number (1-9) «#=-=> 





PUSS eave dig 1D 


387 


_—___—_— eee a ea SSS sp ns: 
Ward Room Bed Patient Reg # Date Time 
ee SELECT NURSING ASSESSMENTS FOR A PATIENT WITH @#@ 


** NURSING DIAGNOSIS OF IMPAIRED PHYSICAL MOBILITY #*# 
re 


13 Confinement Imposed 72 Inability to franstec 

2} Fatiques Easily S82 Ineeilicu tarlucn 

33 Goit Impairment 33 Limited Ronge of Motion CRON) 
%2 Impaired Coordination 103 Reluctont to Move 

SJ) Inobility to Ameulace |} 11) Use of Assistive Devices 

63 Other: C------- +--+ ee eee eee ee eee eeee J 





Current User: 


Select one number (COi-11) *2#=> 


amb aes 5 le aleo| 


Ward Room Bed Patient Reg # Dote Time 


—o SELECT A RELATED FACTOR FOR A PATIENT WITH [= 
*® NURSING DIAGNOSIS OF IMPAIRED PHYSICAL MOBILITY ** 





13 Decreosed Activity Toleronce 
ej Musculoskeletol Function 

33 Neuromuscular Function 

“*) Poin / Discomfort 

S53 Treatment Regime 


6) Other: (€C--++6. 6.2.2. 2 3 





Current User: 


Select one number (1-6) *2#*=> 


Fl Sur ew Sy ie eta 


388 


SS OOO ES eee 


Ward Raom Bed Patient Reg # Date Time 


_ SELECT A PATIENT GOAL FOR A PATIENT WITH ee 
*#* NURSING DIAGNOSIS OF IMPAIRED PHYSICAL MOBILITY ** 


= 


1) Able to Tronsfer Independently 7) Silaintoeins® Full RG 

2) Able to Transfer w/ Assistance BJ] Maintoin Pottern of Elimination 
3] Demas Skills ta Achieve Gools 3] Maintain Skin Integrity 

4%) Increose Ronge of Mation CRON) 10] Na Additionol Controctures 


SJ] Moint Effective Breothing Pottern| 11] Perfarms ADL 


6] Other Goals: €------++++---+eee ee eee eee eee ee eee ee ee eee 3 





Current User: 


Select one number (01-11) «=#=> 


Piswme eo. led. is 


Word Room Bed Patient Reg *# Date Time 


a SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL [IS == 
®® MAINTAINS FULL ROM, INCREASES ROM, NO ADDED CONTRACTURES ** 


** OR MAINTAINS EFFECTIVE BREATHING PATTERN oe 
1] Active Range Of Motion CRON) 6] Passive Range Of Motion CRON) 
2) Cough & Deep Breath 7] Positioning 
3} Encourage Independent ADL 8] Turning 
4%J Groduol Increose ADL Activity 93 Accom Pt OFF Word ¢€>15 <30min) 
S) Other Nursing Orders: _4 10) Accom Pt OFF Word (> 30 min) 

eRe ee ete Ae aw Gas dws 





Current User: 


Select ane number (01-10) *===> 


Figure 5.1.1.1+ 
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Neen nnn nnn cnn nner en re ee ccc eee a are nee 
Word Room Bed Patient Reg # Date Time 
a? SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS *%# 


= MAINTAINS SKIN INTEGRITY OR OTHER es 


1] Ambulate 7] Position 

2) Assist to Select Diet 8) Protect Boney Prominences 
3) Encourage Independent ADL 3) Protect Pressure Areas 

*] Massage to Promote Circulation 10) Provide Sofe Environment 
5) Personal Possessions w/in Reach | 11) Siderails 

6] Other Nursing Orders: C--------+--+-+-+---+-+--+---+----- J 





Current User: 


Select one number (01-11) === 


Pio wee” Serta 


Ward Room Bed Patient Reg # Date Time 


oe SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS °%* 
7? MAINTAINS PATTERN OF ELIMINATION OR PERFORMS ADL s* 
** AFTER SOME SELECTIONS YOU WILL SE ASKEDVPOER] | REGEN G aes 


1] Ambulate with Assistance 6] Range Of Motion CRON) 
2) Increase Independence Doing ADL 7] Select Diet to Promote GI Functior 
3) Plan €or Continuing eace 8) Turn 


4] Position 


SJ] Other Nursing Orders: C-------+-+++--+++-+--2++--e- 3 





Current User: 


Select one number (1-8) **== 


Fisurce 5, ies 


278 


i 
Ward Room Bed Patient Reg # Date Time 
“e SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS ** 


== ABLE TO TRANSFER INDEPENDENTLY OR WITH ASSISTANCE -= 
Dene ee 


1) Assist: Bed to Chair 4) Provide Helping Person 
2) Assist: Bed to Wheelchair S) Provide Mechanical Aid 
3) Other Nursing Orders: C-----+++----- eee eee eee eee eee J 





Current User: 


Select one number (1-5) ====> 


Figure 5. il. iw 


Ward Room Bed Patient Reg # Date Time 


oe SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS ** 
= DEMOS SKILLS TO ACHIEVE GOALS Sali 


foes rFoovide Oppoert Te Practice Skills SJ Teach Required Exercise 
2) Teach Factors for Impaired Moblty 6] Teach Use of Adjuncts/Aids 
3) Teach Rationale for Skills 


4} Other Nursing Orders: C-------+--+--eee eee eee eee eee 5 





Current User: 


Select one number (1-6) ==> 


Tulse We ale 6 lex 


os 





Ward Room Bed Patient Reg # Date Time 


** SELECT NURSING ASSESSMENTS FOR’ ANPATIENT SU Tie 





oe NURSING DIAGNOSIS OF SELF-CARE DOEFICIT =” 
1] Unable ta Gloth Self 7] Unable to Get to BR 11) Unable to do Toile 
Hygiene 
€) Unable. to Cut Food 8) Unable to Maint Appear 
12) Unable to Rise Off 
3) Unable to Orink S) Unable to Select Cloth Toilet 
+t) Unable to Fasten Cloth; 10) Unable to Sit on 13) Unable to Flush 
Toilet/Commode Toilet 


5S] Unable to Feed Self | 14%) Unable to Woehaeen 
nable to Wash Se 


6] Other Assessment: [C---- +--+ - 2-2 ee ee eee eee eee eee J 





Current User: 


Select one number (01-14) *=#=> 


PS nee | 5. ees 





Ward Room Bed Patient Reg # Date Time 


#® SELECT A RELATED FACTOR FOR A PATIENT WITH ** 
** NURSING DIAGNOSIS OF SELF CARE: DEF ler. =~ 





ld” Activity Incelecence 6) Neuromuscular Impairment 
2] Depression 7) Pain/Discomfort 

3] Developmental Phase 8) Perceptual Impairment 

4] Musculoskeletal Function 93) Sensory Impairment 

SJ] Other: C---++-+-+--+ 22 ee eee eee ee eee J} 10) Severe Anxiety 





Current User: 


Select one number (01-10) === 


Pigure 5. ieee 


S72 





Ward Room Bed Patient Reg # Date Time 


** SELECT A PATIENT GOAL FOR A PATIENT WITH A ** 
Soe NURSING DIAGNGSIS Gr SECF-CARE: CEFICIT => 
2? Hen oe ePeTIEURRENT EEVEL OF CARE REQUIRED ** 





* Patient Goal * * Current Level * 


1) Functions @ Level O: Full Self Care AJ Infant/Toddler Care 


2) Functions @ Level 1: Use of Equip or Device B) Self/Minimum Care 


33 Functions @ Level @: Needs Assist/Supervisn C} Assisted Care 


4) Functions @ Level 3: Needs Assist & Use Device DJ Complete Care 


SJ Functions @ Level *: Dependent & Does Not Ede lotal Gare 


Participate 





Select one number (1-S) *#*"= 


Current User: 


Select one letter CA-E) *=="= 


Hise = oad. 1, laa 


Ward Room Bed Patient Reg # Date Time 


** SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS ** 
a PUNE TIONS Ar CEVED GO: FULL SELF-CARE == 





13 Support Increasing Independence in ADL 
Cie. Feeding, bathing, toileting, dressing, grooming, etc. 


2] Peds Recreation/Observation 


3) Other Nursing Orders: C------------ eee eee eee ee eee 7 





Current User: 


Select one number (1-3) ***=> 


Pwoae wo. lew. Lao 


Dge 


a a a 
Word Room Bed Patient Reg # Dote Time 
aah SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS ## 


== FUNCTIONS AT LEVEL 1: NEEDS EQUIPMENT OR DEVICE = 


1) Provide Equip Fer Bathing S$) Provide Equip For Toileting 
eC) Provide Equip For Dressing 6) Peds Recreotion/Observation 
3) Provide Equip For Feeding 7) Spoon Feed Adult Potient 
| enue Nursing Orders: : 8) Spoon Feed Child C<6) 

ad ET eR RN TS ailig va epee c | 





Current User: 


Select one number (1-8) *=*=*=> 


Picea) ween 


—e 





Word Room Bed Potienc Reg # Dote Time 


ald SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS 2° 
**® FUNCTIONS AT LEVEL e@: NEEDS ASSISTANCE/SUPERVISION OR OTHER ** 





Li@Assist to Uness 7) Feed Adult Potient 12) Peds Recreotion/Cbs 
2) Assist To/From Bathroom| 8) Give Emotionol Support]13) Set up Food Troy 

3) Assist w/ Partiol Both 3S] Give Complete Both 14%) Shove Potient 

4) Assist: Comb/Brush Hoir;10) Keep Commode @ Bedside|]15) Sociolize During Mec 


S)] Dress Potient )}112 Kp Urinol/Bedpon Neor |16) Spoon Feed Child 


6] Other: C---------- e+e eee eee ee ee eee J 





Current User: 


Select one number (€01-16) *=*= 





Figure 5.1.1.1lad 
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LE eee 


Ward Room Bed Patient Reg # Date Time 


ee 


** SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS 
®* FUNCTIONS AT LEVEL 3: NEEDS ASSISTANCE AND USES EQUIP ** 


eee ee an eee ee 


1] Assist to Dress 7] Feed Adult Patient 12) Provide Necesary Ear 


2} Assist To/From Bathroom! 8) Give Emotional Support|i3] Provide For Hygiene 
3] Assist w/ Partial Bath 93) Give Complete Bath 14) Set Up 7food Tray 
4] Assist: Comb/Brush Hair|10) Keep Commode @ Bedside|iS) Spoon Feed Child C<€E 


5S] Oress Patient ) 11) Kp Urinal/Bedpan Near |16) Ped’s Recreation/Obs 


MMe Cee ee = - - See ee eer | 





Current User: 


Select one number (01-16) *="= 


Figure 5.1.1.1ae 


Ward Room Bed Patient Reg # Date Time 


pe SELECT A NURSING ORDER FOR A PATIENT WHOSE GOAL IS =< 

®e FUNCTIONS AT LEVEL 4: DEPENDENT AND DOES NOT PARTICIPATE ** 
1] Assist To/From Bathroom| 7] Give Completes Bath 12] Spoon Feed Child C<6& 
2] Assist To/From Commode 8] Give Emotional Support/13] Other Act (€>1S <30mn 
a7) Assist: CombB/Brush Hoir| 3] Provide for Oral Hygen/|1i4%) Other Act (>30 <1 her 
4] Dress Patient 10] Provide Personol Hygen}1S) Speciai Proc (>1 <en 


S] Feed Adult Patient 11] Provide Urinol/Bedpan |16) Xtra Linen Chge/ 
Par tioil@sacen 


6] Other: C-------+---e eee eee ee ee eee eee | 





Current User: 


Select one number (01-16) *="=> 


ibe on lee Lar 


392 


—_—_—e\\\,,,, ,,,,,,, nn nn nn nn eee rrr Sy ss SS 


ward Room Bed Patient Reg. # Date Time 


ee" INACTIVATE A NURSING CARE PLAN ®*# 
er 


Date Time Nursing Diagnosis Assessment 
Reloted To Factor Patient Gool 
Nursing Order Frequency Emotion/Teoch Nurse 


OJ Sigm=Gllt ‘lJ Nextsr ion 2) Inmoctivote Fian 3) Return %*} Master Screen 





Current User: 


Select one number (CO-4)] ===> 8 


PLZURme” 9. eel 





Press ~~ Ctrl and S -- Keys to Pouse The Scrolling If Necessary 

Page No. 1 
03704785 

Dote Time Nursing Diagnosis Assessment 

Related To Patient Gool 

Nursing Order Frequency Emotional/Teach Nurse 
01/01/85 10:06:e% Comfort Alteration In: Poin Alterotion In Muscle Tone 
Disease / Condition Communicates Experience Tolerable Poin 

Teach Alt Coping Strotegies Structured Teoching G. Hormeyer 
01/01/86 10:08:1e Impaired Physical Mobility Reluctant To Move 

Musculoskeletal Function Able To Transfer With Assistance 

Assist Bed To Wheelchair Erp Structured Teaching G. Harmeyer 
01/01/86 10:10:Se8 Self-Care *Deficit Unable To Do Toilet Hygiene 
Neuromuscular Impoirment Func @ Level e@, Needs Assist/Supervis 

Keep Commode @ Bedside Tie Structured Teaching G. Harmeyer 


Fieure 5S .l.i22 


396 





Page No. 
a7 ic/85 


Date 


Ot7 11/86 
01/11/86 
677 11/86 
G27 11/86 
St711/86 
ei 11/85 
iy ic/86 
Gi ic/S6 
877 1¢e/86 
et i2/86 
O17Te/86 
eivie/ss 
e27ic/36 
Gi712e/86 
01/12/86 





Press -- Ctrl and S -- Keys To Pause The Scrolling If Necessary 


1 


Order 


Teach Alt Coping Strategies 


Assist Bed To Wheelchair 
Self/Minimum Care 

Keep Commode @ Bedside 
Up in Choir w/ Assist 
Diabetic Diet 


Cloride 
Sodium 
Amylase 


Potassium 


Cue 

ESE 
Platlets 
Glucose 


Intake & Qutput 


Frequency 
rT 

ro 

Toe 

Daily @ O600 
Daily @ O&800 
Daily @ O600 
Dai) @ O600 
Daily @ O800 
Daily @ O&00 
Tio 


Pai See Sal ee 3S 


Patient: Mary Miser 


Is In: 


Point Value Is: 


ele ne arya dene 


oo 


Eategocy I! 


4 


ov 


Practitioner 


Harmeyer RN 
Lyons MD 
Harmeyer RN 
Harmeyer RN 
Lyons MD 
Lyons MD 
Bui MD 

Bui MD 
BuilThD 

Bui MD 

Bui MD 

Bui MD 

Bui 0 

Bui MD 

Bui MD 


HHH HHH HHS ZOHO 20) 


4 we ome me 1 


ese SELECT ADD 7 DELETE Qeuseemaees 


12 Add A User 


eC) Delste A User 


0) Sign-OFF 





Current User: 


Select one number (CO-2) **="=> s 


Figure 6 





USER INFORMATION 


eee THIS INFORMATION 15 CONFICEND IAL =. 





First Initial: ‘ 


Middle Initial: 
Last Name: 


Category of 
Requestor: 


Password: 


Access Level: 


etre Onm 


392 


sss DELETE A USER *** 
ee 


User’s Name Category Access Level 


6). Sign-OFe 1] Next User 2} Delete User 3) Add/Delete Scr 





Current User: 


Select one number (O-3) ====> a 





Fi ZUme or 


Dy, 


APPENDIX G 
DATABASE STRUCTURE 


Structure of the Four databases used in they eeeeoens- 
project. Names have been elongated to provide more meaning 


For the reader. 


Patient database 


Field name Type Width 
LAST NAME CheEEGctres eo 
FIRST NAME Character fe 
MIDDLE NAME Character 3 
RATE/RANK Character ie 
FRessn Chacacter Pe 
Brot UATE Date 8 
AGE Character 3 
SEX Chabaceer Z: 
ADMISSION DATE Date 8 
REGISTRAD LENS NUMBER Character 8 
MEDICAL DIAGNOSIS Ehearaceer e4 
PHYSICIAN Character aot 
PREGNESLS Character 3 
ALLERGIES Character en 
WARD Character 2 
ROOM Ghacecter fi 
BED Character i 
Order database 

Field name Type Width 
FMPSSN Character De 
OR GER Character eg 
PRERBRUENCY Characgeer ie 
TIME Character 8 
DATE Character 8 
PRACTITIONER Character 20 
QUALIFIER Character 6 
TODAYONLY Character i 
PATIENT POINTS Numeric a 
MOBRGEE Character di 
MEONTEGR PeInts Numeric a 
EMGTIGN Folnts Numeric Ee 
ROUTINE Petes Numeric Ee 


4O0 


NUGSing care database 


Field name 

FNPSSN 

NURSING DIAGNOSIS 

NURSING ASSESSMENT 
RELATED FACTORS 

PATIENT GOAL 
feirse’*S ORDER 

DATE 

ME 

NURSE 

Pee WUENCY 

EMNOTIONAL/ TEACHING 
Regu TREES 


Type 

Character 
Character 
Character 
EnaraGceer 
Character 
Character 
Date 

Chnareacrer 
Character 
Character 
Snareacter 


User’s information database 


Field name 

moenm S FIRST INITIAL 
moer S&S MIBDLE INTIAL 
USER’S LAST NAME 
FOoGuESTOR 

PASSWORD 

Pmeeos LEVEL 


Type 
EmabLacrenr 
Character 
ENnacacrer 
Character 
Character 
Numeric 


4O1 


Width 


W) VU 


ne 


te Ul U) 


10: 


INITIAL DISTRIBUTION eee 


Ne. 


Defense Technical Information Center 
Camerean Station 
Alexandria, Virginia “e230neoss 


LIDEaru  VGede ete 
Naval Postgraduate School 
Mentereyu, California  S3sgz3a-se¢e 
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